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1.1 PROGRAM 
This program 
providing headers 
composed of two 
controller -res ident 



ABSTRACT 
will prepare 



epare RC25 media for use as addressable storage by 
and replacing of bad blocks. This formatter will be 

host -resident section, and a 



»ec t i ons j a 
DM code section. 



by DIGITAL Manufacturing 
copy of the FCT, produced 
stored offline, to the 



The host section will serially foruat up to si*teen RC25 subsystems by 
down 1 ine- loading the DM code, end monitor the ta«W . The downline 
section will consist of overlays of DM code. The first of these will be 
down- line loaded to the drive itself, and accomplish the actual business 
of formatting, calling in additional overlays as needed, asking software 
parameters questions and printing formatter error and informational 
messages. 
There are three general modes of DM formatter operation and they are: 

O REFORMAT - This mode is uted to format a medium which has been 
previously formatted, and is beino reformatted to clear 
existing data or to change the mode of the medium to 512 bytes 
per sector. It assumes that the FCT is still intact 

o RESTORE - This mode will only be run 
personnel. It provides an external 
when the disk was manufactured and 
RC25 formatter. 

o RECONSTRUCT - This mode is used when none of the other modes 
is possible. It detects bad blocks by performing repetitive 
read checks of each sector. For this reason, a RECONSTRUCT 
run takes considerably longer than the other modes. 

There are two general modes of HOST operation and they are: 

o ATTENDED M00E- This is where an operator must be present at the 
console terminal to respond to DM formatter software parameter 
questions. In this HOST mode the operator can choose any of the 
three DM format ti no modes 
o UN-ATTEN0ED M00E - Thi* i<v where the HOST *.ll automatically answer 
DM formatter software parameter questions to perform a REFORMAT 
mode to all units selected unito via the hardware P_Tables. 

1.2 Performance Goals 

Before Initiating the format process, simple cneci<s will be made to 
assure the object drive exists, and that communications are possible 
between host and downline program sections. 

To maximize throughput: 

o For full Track reads a half Track skew mill be employed. That 
is, for even physical LBN track numbers each block number in 
Track N»l will occur 16 block times later than in Track N. 
o During bad block replacement, primary replaceiner t blocks (RON") 
will be used first. A second pass will then use secondary 
RBN's for any additional bad blocks. 
All bad blocks, whether Induced by the manufacturing process or 
Wv'jr caused, will be revectored to Replacement Blocks ( RBN ) . This will 
assure the full compliment of 25,451 blocks per surface for host 
applications use. 

Product reliability Ig enhanced through use of four copies of the FCT 
and RCT. 
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1.3 SYSTEM REQUIREMENTS 

The following are required to run the RC25 Formatter 

on PDP-11 Systems: 

* A PDP-11 series CPU 

* A minimum cP 28K words of main memory 

* An RC25 subsystem 

* An XXDP* load rr>edium 

* A console terminal 

* Diagnostic Supervisor 

1.4 RELATED DOCUMENTS AND STANOARDS 

1. DUP.V05 Diagnostic/Utilities Protocol version 0.5 

2. UQSSP.DOC Unibus/Q-Bus Storage Systems port VI. 5 

4. MSCP.DOC Mass Storage Control Protocol 

5. AZTEC.DOC RC25 Microcode Documentation 

6. DSDEVU.DOC Standard Dink Format Specification version l.t 

7. SUPPRGC.DOC PDP-11 Diagnostic Supervisor Programming guide 

8. CHQUSD.SEQ XXDP»/SUPR user manual 

9. BLISS -lb Language Guide 

10. BLISS- 16 User's Guide 

1.5 DIAGNOSTIC HIERARCHY PREREQUISITES 
A fully functional CPU* main memory and RC25 subsystem are required. 

1.6 ASSUMPTIONS 

Prior to the first formatting of a media, an exhaust :«e surface analyses 
is assumed to have taken place to detect bad spots caused by the 

manufacturing process. The results *>f this analysis is assumed to have 
been written as two FCT images per FCT track on the RC<?5 media. 

1.7 PRODUCT USERS AND USES 

This program is intended for use on media which has undergone « surface 
analysis process, resulting in the writing of Factory Control Tables 
OCT) on the media. 

The program will kx* used by Engineering and Manufacturing Groups as a 
product development tool, and by Id Service personnel for media 
recovery , 

This program is a utility and is r\o K intended for use as a diagnostic, 
for future use, ^he DM formatter code portion o> thin program will be 
£ :' it> used by operating systems as a Format utility program, 
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1.8 RESTRICTIONS 

This program will be host loaded. 

With the e\ception of the F C 1 and inner DBN tracks, all Information previously 
recorded on the media will be destroyed. This !ncludes all I. ON, RBN and RCT 
blocks. 

The format process will reset the forced error Indicator CEDC field) of 
each LBN, DON, and used ^BN and set the forcec' error indicators of oil 
unused RBN's. 

The ECT preamble will indicate jrero for both the size of the 576 byte 
replacement tabl*, and the si/e of the controller scratch area. 

All sectors will have 512 byte data fields. 

This Host program will run on only PDP-11 family CPUs which support the 
Diagnostic Supervisors, 
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C 0237 1.9 Bod Block Definition 

C 0238 

C 0239 The Formatters bod block replacement convention i r. as follows: 

C 'V40 

C CM1 For Read operations: 

C 0242 - - - - 

C 0243 Any ECC, read or compare data f til lure will result in four retries. 

C 0244 

C 0245 Failure of an/ retries will be considered a Hard error and 

C 0248 the block In error will be replaced. 

C 024 7 

C 024ft The block in question will be considered good and no revectoring 

C 0249 will be done if all retries are successful. 

C 0250 

C 0251 for Write operations: 

C 0252 

C 0253 A Write failure will result »n four retries, 

C 0254 

C 0255 Failure of any retries will b* considered a Hard error and 

C 0256 the block in error w»ll be replaced. 

C 0257 

t 025W Ihe block in question will be considered good and no revectoring 

C 0259 will be done if all retries are successful. 
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oil source module comprising ZRCHBO ond a description 
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7RCHB0.R16 


2. 


ZRCHB1.B16 


3. 


ZRCHB2.B16 


4. 


ZRCH63.B16 


r >. 


ZRCH64.B16 


6. 


ZKCH85.B16 


7. 


/RCH66.B16 


f*. 


ZRCH87.B16 
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2RCMB8.EXE 


10. 


ZRCHB9.BP2 


11. 
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ZRCH6U.MAC 
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ZRCH612.SAV 
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ZRCH6.COM 


IS. 


ZRCH6.DOC 


It. 


ZRCHB.SEQ 


17. 


ZRCHB.BIN 



Host f»ou^ce bliss library 

Program source document module 

Global data module 

In it code source module 

Test source module 

Global routine source module 

DM formatter down- line load executable module 

DRS> Last address source module 

DHCONV.EXE Dmconv executable code 

DHC0NV.BP2 Dmconv source module 

AZEHTR.LST DM formatter list file 

AZFMTR.MAC DM formatter source macro module 

AZFNTR.SAV DM formatter executable code 

Project : nd!rect command file 

Program document listing file 

Host sequence listing 

Program XXQP* .bin file 
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This section contains a brief description of the runtime services, 
for detailed information, refer to the XXDP* user's manual (CHQUS). 

2.1 COMMANDS 

There ore eleven legal commands for the diagnostic runtime services 
(supervisor). This section lists the commands and gives a very 
brief description of them. The XXDP* user's manual has more details. 



COMMAND 
START 
RFSIART 
CONTINUE 

PRUCEED 



EXIT 

ADD 

DROP 
PRINT 

DISPLAY 
FLAGS 

ZFLAGS 



EFFECT 

Start the diagnostic from an initial state 

Start the diagnostic without initializing 

Continue at test that was interrupted (after *"C) 
Attempts to continue after a control c will result 
ir, the present units formatting to be aborted and 
the next logical units formatting to commence. 

Continue from an error halt. This host program 

•s coded to be a utility and not a diagnostic* 

therefor no error macros are used. For this 

reason this DRS> command has no meaning. 

Return to XXDP* monitor (XXDP* operation only*) 

Activate a unit for testing (all \.-nits are 
considered to be active at start time 

Deactivate a unit 

Print statistical information, Report summary 
coding is remote DM program driven and is not 
implemented in the host. 

Type a list of all device information 

Type the state of all flags ( 'jee section <? . 3 ) 

Clear all flags (s<-»e section £.3) 



A command can be recognised by the first tnree characters. 
So you may, for example, type "STA" Instead of "START". 

*>.;: switckes 

There are several switches which are used to modify supervisor 
operation. These switches are appended to the legal commands, 
All of the legal switches are tabulated below with a brief 
description of each. In the descriptions below , a decin-al number 
is designated bj "DDDDU" . 
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/PMSSiDDDDD 

/FLAGS : FUGS 
/EOP: DDDDD 



/UHI T S:LISf 



Execute only those tests specified in 
the list. List is a string of test 
numbers* for example /TESTS : 1 :5 ; 7 ~ 10 . 
This list will cause tests 1,5,7,8,9,10 to 
be run, All other tests will not be run. 

Execute DDDDD passes ( DDDDD - 1 to 64000) 
The host code will perform only one pass. 
At completion of pass one the program will 
be terminated regardless of this switch. 

Set specified flags. flags are described 
in section 2.3, 

Report end of pass message after every 
DDDDD passes only. (DDDDD ■ 1 to 64000) 
The host code will perform only one pass. 
At completion of pass one the program will 
be terminated regardless o f this switch. 

TEST/ADD/DRCP only those units specified 

in the list. List example /UNITS:0:5:1 -12 

use units 0,5,10,11,12 (unit numbers « 0-b3) 



Example of switch usage: 

START/TESTS: 1 -5/PASS: 1000/E0P: 100 
The effect of this command will be: 

1. Tests 1 through 5 will be executed. 

2. All units will tested 1000 times. 

3. The end of pass messages will be 
printed after each 100 passes only, 

A Switch can be recocjni/ed by the first three characters. iou 
may, for example, type *VTFS:l-5' instead of "/TESTS: 1 -5" . 

Bel oh Is a tabic- Hut spec! ~ies which switches con be used by 
each command. 



TESTS PASS 



FLAGS E0P 



UNITS 



START 

RESTART 

CONTINUE 

PROCEED 

DROP 

ADD 

PRINT 

UISPL Af 

FLAGS 

/» I Ab'j 

EXIT 



I 'I 



<.RCHUl 




RFV B PATCH 00 


5 C 


0397 


; C 


0398 


; C 


0399 


; C 


0400 


; C 


0401 


; C 


040? 


; C 


0403 


; C 


0404 


5 C 


0405 


; C 


0406 


j c 


040 7 


J c 


0408 


; C 


040 c > 


; C 


0410 


; C 


0411 


; C 


041? 


5 C 


0413 


; C 


0414 


; C 


0415 


; C 


0416 


; C 


0417 


; C 


0418 


; C 


0419 


; C 


04 ?0 


; C 


04? 1 


; C 


04?? 


: C 


04?3 


: C 


04?4 


; C 


04?5 


\.. 


04 ?6 


i C 


04?/ 


c 


0^?8 


; C 


04?9 


; C 


04 30 


C 


0431 


; C 


04 3? 


; C 


0433 


; C 


04 34 


; C 


04 3b 


; C 


0436 


; C 


0437 


; C 


0438 


: C 


0439 


; C 


0440 


; C 


0441 


; C 


041? 


; C 


044 3 


; C 


0444 


; C 


04 4 S 


; C 


0446 


; C 


044 7 


i C 


044H 


; C 


0449 


; C 


04 SO 


; C 


0451 


; c 


04 :.? 


J c 


0453 
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Flags are used to set up certain operational parameters such as 
looping on error. All flags are cleared at startup and remain 
cleared until explicitly set using the flags switch. Flags 
are also cleared after a start command unless set using the 
flag switch. The ZFLAGS command may also be used to clear 
all flags. with the exception of the START and /FLAGS commands, 
No commands affect the state of the flags; they remain set or 
cleared as specified by the last flag switch. 

FLAG EFFECT 

HOE Halt on error control is returned to 

runtime services command mode 

LOE Loop on error 

IER* Inhibit all error report* 

1BR* Inhibit all error reports except first 

level (first level contains error type, 
number, PC, test and unit) 

IXR* Inhibit extended error reports (those 

called by PRINTX macro's) 

PRI Direct messages ».« line printer 

PNT Print test number as test executes 

BOE "BELL" on error 

•JAM Unattended mode (no manual intervention") 

ISR Inhibit statistical reports (does not apply 

to diagnostics which do not support statis- 
tical reporting) 

IDR Inhibit program dropping of units 

ADR Execute autodrop code 

I UT Loop on test 

EVL Execute evaluation {on diagnostics which 

have evaluation support) 

*rrror messages are described in section 3,1 

See the XXDP» user's manual for more details on flags. ) ou may 
specify more than one fljg with the flag switch, For example, 
to cause the program to loop on error, inhibit error reports 
and type a "BELL" on error, yoi* may use the following string; 



M 1 



ZRCHB1 




REV - PATCH 00 


; C 


0454 


: C 


0455 


! C 


0456 


; r; 


0457 


; C 


04 58 


; r 


+ 39 


; L 


04 30 


l i- 


J461 


; C 


04 63 


; C 


0465 


c 


0464 


; C 


0VS5 


{ c 


Osfifi 


c 


04 67 


c 


0468 


; C 


046*1 


; C 


04 70 


5 C 


04 71 


; C 


04 73 


; C 


04 75 


; C 


0474 


; C 


04 75 


; C 


0" 76 


; C 


047/ 


; P 


04 78 


: C 


04 7 fl 


; r 


G 4,0 


; C 


0481 


; C 


048? 


; C 


048'i 


; C 


048<- 


; C 


048', 


; C 


04 66 


: C 


0487 


; r 


0486 


; C 


0489 


• j- 


0490 


c 


0491 


; C 


0493 


; C 


0495 


f c 


0494 


; C 


0495 


; C 


0496 


; C 


0497 


; C 


0498 


: C 


0499 


; C 


0500 


; C 


0501 


: C 


0503 


; C 


O505 


; C 


0504 


» c 


0505 


: C 


050b 


; C 


050 ; 


; C 


0508 


r t: 


0509 
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.i-LAGS:LOE:IERsBOE 



XXDP* user' s 
, the runtime services 
You will then be asked 



2.4 HARDWARE QUESTIONS 

When a diagnostic Is started, the runtime services will prompt the user 
for hardware information by typing "CHANGE HW (L) ?". You must answer 
"Y" after a start command unless che hardware information has been 
"preloaded" using the setup utility (see Chapter 6 of th 
Manual), When you answer this question with a "1" 
will ask for the number of units (in decimal). 
the following questions for each unit, 

UNITS (D) ? 

Answer with the number of units to be tested (no defaull ). This 
answer will determine how many times the following questions are 
asked. A un i t i s o logical disk (single platter) on on RC35. 
A maximum of sixteen units will be accepted by the init code. 

RC25 IP REGISTER ADDRESS (0) 172150 ? 



Answer with the address of the 
controller as addressed by the 

management turned off (i.e., An even 
of 160000 to 17 77 74), 



IP Register of 
processor w i th 
16 bi t address in 



one RC25 
memo -y 
the range 



RC35 INTERRUPT VECTOR ADDRESS (0) 154 ? 

Answer with the interrupt vector address o* the RC25 
controller, A vector address In the range o** 4 to 774 may be 
spec I f i ed . 



RC25 



BU! 



REQUEST LEVEL (D) 5 ? 



C 0510 



Answer with the interrupt priority used by the RC2b, Levels 4 
to 7 are accepted, 

UNIT NUMBER TO BRING ONLINE (D) ? 

Answer with the physical platter number you wish to brin^. online. 
The removable platter is an even number and the fixed plotter is 
the sequentially following odd number, 

2.5 SOFTWARE QUESTIONS 

The supervisor will ask the quest ion "CHANGE SW (I ) ; . Ihis question is 
to be answered with 'Y', The following message will be printed to the 
console terminal: 

FORMAT IN UNATTENDED REFORMAT MODE (I ) YES 7 

A *it5' response (the default) will cause the host to run in UNATTENDED 
reformat mode (see section 7.3 for description). 

A NO' response will cause the host to -un in ATHNDED mode i see section 
7.1 *": description). In this mode an operator must be present at the 



Nl 



7RCHB1 




REV B PATCH 00 


; C 


0511 


C 


051? 


; C 


0513 


; C 


0514 


; C 


0515 


; C 


0516 


; C 


051/ 


; C 


0518 


; C 


0519 


; C 


0520 


j C 


0521 


; C 


0522 


; C 


0523 


; C 


0524 


; C 


0525 


: C 


0526 


i w 


0527 


; c 


0528 


; C 


0529 


; C 


0530 


f c 


0531 


i C 


01332 


: C 


0533 


C 


0534 


i C 


0535 


; C 


0536 


; C 


053/ 


i C 


0538 


; C 


0539 


; C 


0540 


-. I 


054 1 


i C 


0542 


; C 


054 3 


; C 


0544 


; C 


0345 


; C 


0546 


; C 


054 / 


i C 


0548 


; C 


0Sd9 


; C 


0550 


: C 


0551 


; C 


0552 


; r 


05r-.< 


; c 


0554 


; c 


0555 


; C 


0556 


; C 


055/ 


; C 


055R 


; C 


0554 


; C 


0560 


5 C 


0561 


c 


056,,' 


; (.' 


OS 6 3 


; C 


05b4 


; C 


05^)5 
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console terminal to answer the following DM Formatter software questions: 

The DM will ask the following questions. The question numbers are those 
used as the DUP question numbers. 

0. Enter date: 

Enter the current date in MM-DD-YYYY. 

1, Enter unit number to format: 

Enter the number of the unit to format. 

2. Enter sector size to be used (512/576): 

This question Is for compatibility with other formatters. 
The RC25 formatter will skip this question. 

3, Enter mode to be used C slow/normal/f ost ) : 

This question is for compatibility with other formatters. 
The RC25 formatter will skip this question. 

4, Use existing bad block information (y/n): 

If the answer It; itS, a REF0RMA T mode format is done. If 
the answer is NO, the mode of format is determined by 
question 5. If the answer is YES. question 5 Is skipped. 

5. D0UN-LINE LOAD bad olock information (y/n); 

P.n answer of NO will cause a RECONSTRUCT mode format to be 

performed. If an answer of YES is given, a RESTORE mode 

format will be performed, An answer of NO will skip 
question 6. 

NOTE: It is the responsibility of che host program to 
obtain the name of the file to be used for tne DOWN-LINE 
LOAD. 



f>. 



Continue if bao block i nfor.nat »on is Inaccessible (y/i^)'. 
An answer of YES w I 1 .1 cajse a RECONSTRUCT mode format to be 
done if the format t«*i .:annot rend the FCT on the disk or If 
a RESTORE mode forma ias it tempted and the bod block data 
file was unavailable. An an* .<*er of NO will cause the format 
to abort if the bad blick in* orn.it ion is inaccessible. An 
answer of NO will terminate the question sequence. 



FCT blocks will be requested via the special DUP utessage 
The ^ir^t data word in this message will be the f C T 
(relative > /ero^ requested by the formatter. All 
sequence numbers for FCT block requests will be 1. The 
response is a 3 word block from t*e host. The f ir^>t word is 
O if the block was successfully retrieved eit^d non zero if it 
was not. Ihe ne\t 2 words contain the LJNIBU5 address of a 
buffer containing the 512 byte block from the FCT file. 



code . 
block 
DUP 



7. 



C 0566 



Enter serial number: 

Enter the 64 bit decimal serial number of tne 
formatted. in the RCi'!"-* formatter this number 
if o RECONSTRUCT mode format is used. 



1 :<;!' to be 
«n used only 



b 



■52 



7RCH81 




REV B PAICH 00 


: C 


OS6 7 


; C 


0566 


j C 


056^ 


; C 


05 70 


; C 


0571 


J C 


0572 


; C 


0575 


; C 


0574 


; C 


0575 


; C 


C5 76 


; C 


0577 


: C 


0578 


C 


0579 


i C 


0530 


c 


0581 


c 


0582 


C 


058 5 


; C 


0584 


: C 


0585 


; C 


0586 


; C 


0587 


i C 


0588 


; C 


0589 


; C 


0590 


; C 


0591 


; C 


0592 


; C 


0595 


; C 


0594 


; C 


0595 


C 


0596 


; C 


059/ 


; C 


0598 


; C 


0599 


; C 


0600 


; C 


0601 


; C 


0602 


; C 


0605 


; C 


0604 


; C 


0605 


; C 


0606 


; C 


0607 


: C 


0608 


; C 


0609 


; C 


0610 


; C 


0611 


; C 


0612 


; C 


0615 


; C 


0614 


; C 


0615 


i C 


0616 


; C 


0617 


s C 


0618 


; C 


0619 


; C 


0620 


j r 


0621 


; C 


0622 


J c 


0625 
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When you answer the hardware 
In a table that deec**ibe« th 
May to build this tabic 
unit to be tested. If 
a mat* storage controller 
device with several lines, 
answers are repetitious* 



quest iono, you are build! no entries 
devices under test. The simplest 
is to answer all questions for each 
you have a multiplexed device ©uch as 
with several drives or a common! cat ion 
this becomes tedious since most of the 



To illustrate a more efficient method, suppose you are testino 
a fictional device. the XY11. Suppose this device consists of 
a control module with eight units (sub-devices) attached to it. 
These units are described by the octal numbers through 7. There 
»s one hardware parameter that can vary among units colled the 
Q-FACTOR. This Q-FACTOR m*y be or 1 . Below is a simple way 
to build a table for one >,yll with eight units. 

* UNITS (D) ? 8<CR> 

UNIT I 

CSR ADDRESS (0) ? 
SUB-DEVICE * (0) ? 
Q-FACTOR (0) ? 



160000<CR> 

0<CR> 

1<CR> 



UNIT 2 

CSR ADDRESS (0) ? 

SUB-DEVICE 9 (0) ? 

Q-FACTOR CO) 1 ? 



UNIT 3 

CSR ADDRESS (0) ? 

SU6-0EVICE * (0) ? 

Q-FACTOR (0) ? 



UNIT 4 

CSR ADDRESS (0) ? 

SUB-DEVICE 9 (0) ? 

Q-FACTOR (0) ? 



UNIT 5 

CSR ADDRESS (0) ? 

SUB-DEVICE 9 (0) ? 

Q-FACTOR (0) ? 



UNIT 6 

CSR AODRESS CO) ? 
SUB-DEVICE 9 (0) ? 
Q FACTOR (0) ? 



UNIT 7 

CSR ADDRESS CO) 
SUB DfcVlCt ( 0) 
Q FACTOR CO) 

UNIT 8 

CSR AQURESS 10) 



160000<CR> 

1<CR* 

0<CR> 



160000<CR> 

2<CR> 

<CR> 



160000<CR> 

3<CR> 

<CR> 



160000<CR> 

4<CR> 

<CR* 



160000<CR> 

5<LR» 

<CR> 



ItOOOO'CR* 

6«CR> 

1<CR> 



i 160000* CR^ 



c? 



/RCHBl 




REV B PATCH 00 


; C 


0624 


s C 


06 ?5 


c 


0626 


; C 


06?? 


; C 


0628 


; C 


0t>29 


; C 


0630 


i C 


0631 


; C 


0632 


{ c 


063? 


j c 


0634 


; C 


0635 


; C 


0636 


i C 


063? 


{ c 


0638 


; C 


0639 


; C 


0640 


; C 


0641 


; C 


0642 


; C 


0fo43 


C 


0644 


; C 


0645 


; C 


0646 


; C 


064 7 


; C 


0648 


; C 


0649 


; C 


0650 


; C 


0651 


; C 


C652 


; C 


0653 


i C 


0654 


; C 


0655 


; C 


0656 


: C 


0657 


; C 


0658 


; C 


0659 


; C 


0660 


; C 


0661 


; C 


0662 


; C 


0663 


; C 


0664 


: C 


0665 


; C 


0666 


; C 


066? 


; C 


0668 


; C 


0669 


; C 


0670 


; C 


0671 


; C 


06 72 


; C 


06 73 


; C 


06 74 


j C 


06 75 


; C 


0676 


; C 


06 7 7 


; C 


06 78 


5 C 


0*>79 


i C 


0680 
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(0) 
1 



7<CR> 

<CR> 



Notice that 
non-default 
multiple units! 



the default value For the Q FACTOR changes when a 
response is given. Be careful when specifying 



As you can see F rom the above example, the hardware parameters 
do not vary significantly from unit to unit. The procedure shown 
is not very efficient. 



The runtime 
Let's build 



can taWe multiple unit specifications 
table using-the multiple specificatio 

UNITS CD) ? 8<CR> 



serv tees 
the same 



on 



however 
feature 



UNIT 1 

C5R ADDRESS CO) ? 

SUB-DEVICE 9 (0) ? 

Q FACTOR (0) ? 

UNIT 5 

CSR ADDRESS CO) ? 

SUB DEVICE CO) ? 

O-FACTOR CO) ? 



UNIT 7 

CSR ADDRESS CO) ? 

SUB DEVICE CO) ? 

Q-FACTOR CO) ? 



160000<CR> 
0,1<CR* 

1,0<CR> 



160000<CR> 

2-5<CR> 

0<CR> 



160000<CR> 

6,7<CR> 

1<CR> 



As you can see in the above dialogue, the runtime services will 
build as many entries as it can with the Information given in any 
one pass through the questions. In the first pass, two entries 
are built since two sub-devices and Q-FACTORS were specified. The 
services assume that the CSR address Is 160000 for both since It 
was spec i f led only once. In the second pass, four entries were 
built. This is because four sub -devices were specified. The 
construct tells the runtime services to increment the data 
from the first number to the second. In this case, sub-devices 
2, 3, 4 and 5 were specified. (If the sub-device were specified 
by addresses, the increment would be by 2 since addresses must 
be on en even boundary.) The CSR addresses and Q FACTORS for 
the four entries are assumed to be 160000 and respectively 
since they were only specified once. The last two units are 
specified in the third pass. 

The whole process could have been accomplished in one pass as shown 
below, 

o UNITS CD) '.' 8<CR> 



UNIT I 

CSR ADDRESS (0) 
■■iUH DEVICE CO) 
U-FACTQR CO) 



160000<CR* 
7'CR> 

Q.WQi*»aa«cR* 



ZRCMB1 

ZRCHB1 
ZRCHB1 
ZRCHB1 
ZRCHB1 

ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 



ZRCHBl 
ZRCHBL 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 



ZRCHBl 

ZRCHB1 
ZRCHBl 
ZRCHBl 

/::■/: i sHi 

ZRCHBl 
Z R CHOI 
ZRCHBl 
ZRCHBl 
/RCHH1 
ZRCHBl 
ZRCHBl 
ZRCHBl 



ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHBl 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCMBi? 
ZRCHB2 
ZRCHB2 
ZRCHU2 



ZRCH. . , 


.Bl 


ZRCH. . . 


.CI 


ZRCH. . . 


.01 


ZRCH 


,F1 


ZRCH, . . 


,» 1 


ZRCH.. . 


.Gl 


ZRCH. , . 


.Hi 


ZRCH. . . 


.11 


ZRCH. . . 


.Jl 


ZRCH. . . 


.Kl 


ZRCH. . . 


.1 1 


ZRCH. . . 


.M1 


ZRCH 


,Ni 


zrch. . 


.H2 


ZRCH. . . 


,C2 


ZRCH, , 


.02 


ZRCH. . . 


,E2 


ZRCH. . , 


.f"2 


ZRCH. . . 


,G2 


ZRCH. . 


,H2 


ZRCH. . 


. 12 






/.Ku » . 


.K? 


ZRCH . 


,'„2 


ZRCH. . 


.M2 


Z^CH. . 


M'2 


ZRCH. . 


.B3 


ZRCH. . 


.C3 


ZRCH. . 


.03 


ZRCH. . 


.fc3 


ZRCH. . 


.F3 


ZRCH. . 


.G3 


ZRCH. , 


.IH 


ZRCH. . 


.13 


ZRCH. . 


.J3 


ZRCH. , 


,K3 


ZRCH 


,1 3 


ZRCH. . 


.M3 


ZRCH. . 


,N3 


ZRCH. . 


.B4 


ZRCH. . 


.C4 


ZRCH. . 


.04 


ZRCH 


,M 


ZRCH. . 


. .F<* 


ZRCH. . 


. . G4 


ZRCH. . 


. .H4 


ZRCH 


14 


ZRCH. . 


. ,J4 


ZRCH. . 


. .K4 


ZRCH. . 


. .1.4 


ZRCH. . 


. .M4 


ZRCH. . 


. ,N4 



ZRCHB2 

ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHU2 
ZRCHB2 
Z:!CHB2 
ZKCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 



ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRLHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCH82 
7RCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 



ZRCHB2 
ZRCMB2 

ZRCHB2 
ZRCHB2 
ZRCH62 
ZRCHB2 

ZRCHB2 
ZRCHB2 
/KM iiM; 1 

ZHL'HH.' 

ZRCHB2 
ZRCHB2 
ZRCHB2 



ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB3 
ZHCHR3 
ZRCHB3 
ZRCHB3 
ZRCHB3 



ZRCH. . . 


.ns 


ZRCH. . . 


.CS 


ZRCH. . . 


.DS 


ZRCH 


F5 


ZRCH. , . 


.F5 


ZRCH 


GS 


ZRCH. . . 


.Hj 


ZRCH.. . 


.IS 


ZRCH, , . 


,J5 


ZRCH. .. 


.l<5 


ZRCH. . . 


.L5 


ZRCH. ., 


MS 


ZRCH, ., 


,N5 


ZRCH. . 


.06 


ZRCH. . 


.C6 


ZRCH. . 


.06 


ZRCH, . 


.E6 


ZRCH. , 


,F6 


ZRCH. . 


.G6 


ZRCH. . 


.H6 


ZRCH. . 


.16 


ZRCH. . 


, J6 


ZRCH. , 


.l<6 


ZRCH. , 


.1.6 


ZRCH. . 


.MG 


ZRCH.. 


,N6 


ZRCH. , 


.B7 


ZRCH. . 


.C7 


ZRCH, . 


.07 


ZRCH 


F7 


ZRCH. . 


.F7 


ZRCH. , 


.G7 


ZRCH. . 


.H7 


ZRCH 


17 


ZRCH. , 


,J7 


ZRCH. . 


.K/ 


/HI H. . 


.1 / 


ZRCH. . 


. M / 


ZRCH . . 


.N7 


ZRCH. . 


.Btf 


ZRCH. . 


.CH 


ZRCH. , 


.OH 


ZRCH. . 


. F.H 


ZRCH. . 


J 8 


ZRCH. . 


.lifl 


ZRCH. . 


.HH 


ZRCH. . 


. Irt 


ZRCH. . 


. J8 


ZRCH. . 


. .I<» 


ZRCH. . 


.i.rt 


ZRCH. . 


. .MH 


ZRCH, . 


. .N« 



ZRCHB3 
ZHCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 



7.RCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 



ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
.RCHB4 
ZRCHB4 



ZRLHB4 

ZRCHBS 
ZRCHBS 
ZRCHBS 

ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 



ZRCH. . 


. .B9 


ZRCH. . 


. .C9 


ZRCH. . 


. .09 


ZRCH. . 


. . F9 


ZRCH. . 


. . F9 


ZRCH. , 


. .G9 


ZRCH. . 


. . H9 


ZRCH. . 


. .19 


ZRCH. . 


. . J9 


ZRCH. . 


. . K9 


ZRCH. . 


. .1.9 


ZRCH. . 


. . M9 


ZRCH. . 


. .N9 


ZRCH. . 


. .BIO 


ZRCH. . 


. .CIO 


ZRCH. . 


. .010 


ZRCH. . 


. . F10 


ZRCH. . 


. .F10 


ZRCH. . 


. ,G10 


ZRCH. . 


. . H10 


ZRCH. . 


. .110 


ZRCH. . 


. . J10 


ZRCH. . 


. .K10 


ZRCH, . 


, ,1 10 


ZRCH. . 


. .M10 


ZRCH, , 


. .N10 


ZRCH. . 


. .Bll 


ZRCH. . 


. .cn 


zrcm. . 


. .011 


ZRCH. . 


. .F.ll 


ZRCH. . 


..Fit 


ZRCH. . 


. .(ill 


ZRCH. . 


. .HH 


ZRCH, . 


. . Til 


ZRCH. . 


. . Jll 


ZRCH. . 


. .Kll 


ZRCH. . 


. .1.11 


ZRCH. . 


. .Mil 


ZRCH. . 


, .Nil 


ZRCH. . 


. .R12 


ZRCH. . 


. . C12 


ZRCH. . 


. .01,' 


ZRCH 


n,' 


ZRCH. . 


. ,F12 


ZRCH. . 


. .G12 


ZRCH. . 


. .Hia 










ZRCH. . 


. .K12 


ZRCH. . 


. .1 12 


ZRCH. , 


. .112 


ZRCH, , 


. .N12 



ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 

ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 



ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHRS 

ZRCKiS 
ZnLHBfi 
ZRCHBS 
ZRCHBS 

ZRCHBS 
ZRCHBS 



ZRCHBS 
ZRCHBS 
ZRCHBS. 
ZRCHBS 
ZRC.-.15 
ZRCI.BS 
ZRCHB5 
ZRCHBS 
ZRCHBS 
ZRQ-3S 
ZRCHBS 
ZRCHBS 
ZRCHBS 



ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 



ZRCH. . 


.813 


ZRCH. . 


.C13 


ZRCH. . 


.013 


ZRCH. . 


.E15 


ZRCH. . 


.1-13 


ZRCH. . 


.G13 


ZRCH. . 


.H13 


ZRCH. . 


.113 






ZRCH. . 


.K13 


ZRCH. . 


1 13 


ZRCh. . 


.Mi 3 


ZRCH. . 


.N13 


ZRCH B14 


ZRCH. . 


.C14 


ZRCH. . 


. .014 


ZRCH. . 


.F14 


ZRCH. . 


/ 14 


ZRCH. . 


.G14 


ZRCH. . 


.H14 


ZRCH. . 


.114 


ZRCH. . 


. J .14 


ZRCH, . 


.K14 


.cRCH. . 


.L 14 


ZRCH. . 


. .M14 


ZRCH. . 


. .N14 


ZRCH. . . .BIS- 


ZRCH. . 


. .CIS 


ZRCH. . 


. .ois 


ZRCH. . 


. .LIS 


ZRCH. . 


. .F1S 


ZRCH. . 


. .G1S 


ZRCH. . 


. .HIS 


ZRCH. . 


. .IIS 


ZRCH. . 


. .J1S 


ZRCH. . 


. .KlS 


ZRCH. . 


. .IJS 


ZRCH. . 


. .MIS 


ZRCH. . 


. .MS 


ZRCH. . 


. .Bin 


ZRCH. . 


. .fin 


ZRCH. . 


. .Din 


ZRCH. . 


. .Lin 


ZRCH, . 


* - y ,\* 


ZRCH. . 


. . 1 1 1 ' » 


ZRCH. . 


. .Hln 


ZRCH . . 


. . I In 


ZRCH. . 


. . Jin 


ZRCH. . 


. ,Klti 


ZRCH. . 


. .1 1" 


ZRCH.. 


. .Mlo 



i-2 



^RCHBl 




REV B PATCH 00 


c 


0707 


\ c 


0708 


; C 


0709 


; C 


0710 


; C 


711 


; C 


071? 


5 C 


0715 


i c 


0714 


: C 


OVlb 


; C 


0716 


I C 


0717 


; c 


0718 


; C 


719 


; C 


720 


J c 


0721 


; C 


722 


; C 


0723 


; C 


0724 


; C 


0725 


i C 


0726 


; C 


0727 


; C 


0728 


; C 


729 


; C 


0730 


; C 


0731 


; C 


0732 


; C 


0733 


5 C 


0734 


; C 


0?35 


j C 


0736 


; C 


0737 


; C 


0738 


J C 


0739 
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The process indicator words (PID) are maintained by the remote DM program 
and indicates to the host the DM programs progress running in the controller. 

These PID words are then obtained by the host via the DUP GET„DUST ..STATUS 
command. The newly obtained PID are compared to previous PID words. If 
the PID has not increased since the last GE T _DUST„STATUS then the remote 
program is to be considered dead and the connection to vhe controller broken. 



However if the PID value has increased since the last 
the remote program Is to be considered still running, 
are saved and command time out waits reinitiated, 



GET.DUST..STATUS then 
The new PID words 



This host code will print out to the console terminal the PID values after 
each GET_DUST_STATUS while the formatter is running in the controller. 
The printing format is as follows; 

FORMATTER PROGRESSING: PID HI-xxxxxxx(O) PID LO-kkxkkxCO) 

To further demonstrate to the host the progress of the DM formatter 
the following Is performed: 

Each time the DM formatter calls in a new overlay from host 
memory the low PID word is cleared &nd the high PID word is 
incremented. The operator can then be observed when new 
overlays are called into DM memory, 

2.9 HOST/DM FORMATTER RUN TIME MESSAGES 

All host; messages, fatal errors or operator prompts arc printed in UPPER 
case characters while all DM formatter* messages, fatal errors, completion 
information or operator prompts are printed in lower case characters. 



F? 



ZRCHB1 




rev B PATCH 00 


{ c 


0740 


; C 


0741 


; C 


0742 


; C 


0743 


: C 


0744 


; C 


0745 


; C 


0746 


; C 


0/4/ 


; C 


0748 


; C 


C749 


{ C 


0750 


; C 


0751 


; C 


07b? 


1 c 


0753 


; C 


0754 


c 


0755 


; C 


0756 


; C 


0757 


j C 


0758 


; C 


0759 


i C 


0760 


; C 


0761 


; C 


0762 


: C 


0/63 


; C 


0764 


: C 


0765 


; C 


0766 


; C 


076 7 


; C 


0768 


{ C 


769 


c 


07 70 


; C 


07 71 


: C 


0//? 


; C 


0/73 


C 


7 74 


; C 


07 75 


; C 


0/76 


; C 


07// 


; C 


07» 


; C 


07 79 


: C 


0/80 


i C 


ovai 
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3.1 TYPES OF ERROR MESSAGES 

Due to the Pact that this is an utility and not a diagnostic error macro 
calls will not be used by this host code to report errors. Instead all 
errors will be printed to the operator via the PRINTF macro using the 
prefix "JFTLERR- error message text" indicating this to be a fatal error 

3.2 SPECIFIC ERROR MESSAGES 



DM Code Error Messages 



All errors returned 
formatter are as 
message numbers. 



are fatal. Error messages returned by the RC25 
fallows. The error numbers given are the DUP error 



1 "GET STATUS Pa i lure " 

2 "LESI send error" 

3 "Unsuccessful LESI command" 

4 "LESI receive error" 

5 "UNIBUS I/O e^ror" 

6 "Formatter initialization error" 

7 "Nonexistent unit number" 

8 "DBN/XBN format error (drive FORMAT command failed)' 

9 "FCT does not have enough good copies of each block" 

10 "SEEK error" 

11 "RCT does not have enough good copies of each block" 

12 "LBN format error (drive FORMAT command failed)" 

13 "FCT write ^rrcr" 

14 "RCT read «rro? " 

15 "RCT writ* *rrrtp" 

16 "RCT full" 

17 "FCT read error" 

18 "FCT nonexistent" 

19 "FCT down 1 ine - load error" 

20 "Drive in it timeout" 

?l "Illegal response to start-up Question" 

2? "WARNING possible head addressing problems - run diagnostics" 

33 "INPUT Error" 



7RCHB1 




REV B PATCH 00 


i C 


0782 


; C 


0783 


i C 


0784 


i c 


0785 


» c 


0786 


i c 


0787 


t c 


0788 


; C 


0789 


; C 


0790 


f C 


0791 


; C 


0792 


j c 


0793 


t C 


0794 


: C 


0795 


; C 


0796 


! C 


0797 


5 C 


0798 


; C 


0799 


C 


0800 


5 C 


0801 


; C 


080? 


: C 


0803 


: C 


0804 


; C 


0805 


: C 


0806 


; C 


0807 


; C 


0808 


J C 


0809 
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! Generic self detected Fatal port/controller errors 

i 

SFTLERR- UNRECOGNIZABLE ERROR CODE 

$FTLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT) 

JFTLERR- ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT 

UTLERR- CONTROLLER ROM AND RAM PARITY 

$FTLERR- CONTROLLER RAM PARITY 

JFTLERR- CONTROLLER ROM PARITY 

SFTLERR- RING READ (PARITY OR TIMEOUT) 

5FTLERR- RING WRITE (PARITY OR TIMEOUT) 

SFTLERR- INTERRUPT MASTER 

iFTLERR- HOST ACCESS TIMEOUT 

$FTLERR- CREDIT LIMIT EXCEEDED 

$FTLERR- BUS MASTER ERROR 

$FTLERR- DIAGNOSTIC CONTROLLER FATAL ERROR 

SFTLERR- INSTRUCTION LOOP TIMEOUT 

JFTLERR- INVALID CONNECTION IDENTIFIER 

$FTLERR- INTERRUPT WRITE 

SFTLERR- MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER 

5FTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER 

SFTLERR- CONTROLLER RAM ERROR (NON-PARITY) 

$FTLERR- INIT SEQUENCE ERROR 

$FTLERR- HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR 

SFTLERR- PURGE/POLL HARDUARE FAILURE 

$FTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT) 



7RCHD1 




REV B PATCH 00 


: C 


0810 


{ c 


0811 


; C 


0812 


; C 


0813 


; C 


0814 


; C 


0815 


; C 


0816 


t C 


0817 


c 


0818 


I c 


0819 


i c 


0820 


J c 


0821 


; C 


0822 


; C 


0823 


i c 


0824 


; C 


082S 


j c 


0826 


c 


0827 


; C 


0828 


; C 


0829 


; C 


0830 


; C 


0831 


; C 


0832 


; C 


0833 


; C 


0834 


; C 


0835 


: C 


0836 


j C 


0837 


; C 


0838 


; C 


0839 


j C 


0840 


; C 


0841 


; C 


0842 


; C 


084 3 


; C 


0844 


C 


0845 


; C 


0846 


t C 


084 7 


; C 


0848 


{ C 


0849 


; C 


0850 


J C 


0851 
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RC25 Self -detected fatal port/controller errors 

SFTLERR- VAX REAO/URITE ERROR ON INTERRUPT 

SFTLERR- INCONSISTENCY AT U.3FIL 

SFTLERR- INCONSISTENCY AT U.BMTY 

SFTLERR- INCONSISTENCY AT U.ALOC 

SFTLERR- INCONSISTENCY AT SERVO ENTRY (PIP SET) 

SFTLERR- INCONSISTENCY AT SERVO ENTRY (ERR SET) 

SFTLERR- INCONSISTENCY AT U.SEND 

SFTLERR- INCONSISTENCY AT U.RECV 

SFTLERR- INCONSISTENCY AT U.ATTN 

SFTLERR- INCONSISTENCY AT U.ONLN 

SFTLERR- ILLEGAL REQUEST (U.QDRQ) 

SFTLERR- FENCE-POST ERROR AT PROTAB 

SFTLERR- BAD PACKET DEQUEUED AT U.DONt 

SFTLERR- UNEXPLAINED D-PROC SUSPEKSION (U..TDS) 

SFTLERR- DUP PACKET D-Q FAILED (X!*C 34/35) 

SFTLERR- INCONSISTENCY AT U.HTST 

SFTLERR- INCONSISTENCY AY U.SEKO 

SFTLERR- INCONSISTENCY AT U.CKSV 

SFTLERR- D.OPCD FOUND ILLEGAL OPCODE 

SFTLERR- D.CSF FOUND ILLEGAL OPCODE 

SFTLERR- UNKNOWN BAD DRIVE STATUS AT D.DSTS 

SFTLERR- ILLEGAL XFC EXECUTED BY DM 

SFTLERR- D PICKED UP A ZERO PCB.DB 

SFTLERR- INCONSISTENCY AT D IDLE LOOP 

SFTLERR- DM WORD COUNT ERROR ON HOST DMA/SEND/RECV 

SFTLERR- UNKNOWN DISPLAY FAULT CODE AT D.DFLT 

SFTLERR- DRIVE NOT FAULTING IN P.OFLN STATE 

SFTLERR- U POWER UP DIAGNOSTICS FAILED 

SFTLERR- D POWER UP DIAGNOSTICS FAILED 

SFTLERR ADAPTER CARD FAILURE 

SFTLERR- EC.TMR TIMED OUT 

SFTLERR- U.SENO/U.RECV RIN(> READ INCONSISTENCY 

SFTLERR- UNKNOWN WAITRV REASON AT D.RVCT 

SFTLERR- D.ARCS DID NOT FIND CLOSEST UNDONE /ONE 

SFTLERR- U.SEEK FOUND SEEK TO ILLEGAL TRACK 

SFTLERR- U.HTST INIT DIAG DMA WRITE FAILED 

SFTLERR- U.HTST INIT DIAG DMA COMPARE * All K) 

SFTLERR U.SYDR FOUND 5S.DER SET AND SS*SPN NUT SET 

SFTLERR- MASTER DRIVES ACLO ASSERTED 



ZRCHH1 




REV B PATCH 00 


r* 


085c? 


; C 


0853 


; C 


0854 


; C 


0855 


; C 


0856 


: C 


0857 


; C 


0858 


; C 


0859 


i C 


0860 


: C 


0861 


; C 


086."? 


C 


0863 


; C 


0864 


; C 


0865 


; c 


0866 


; C 


086 V 


C 


0868 


i c 


0869 


; C 


08/0 


; C 


08 71 


; C 


08 7? 


; C 


08 7 3 


C 


08 74 


; C 


08 75 


; C 


08/6 


; C 


0877 


; C 


08/8 


; C 


08 7<» 


I C 


oeao 
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! Host runtime fatal error messages 

IFTLERR- NON-EXISTFNT RC25 REGISTER ADRS xxxxxx 

IFTLERR- DUP SERVER ACTIVE AFTER INITIALIZATION 

IFTLERR- DUP SERVER INACTIVE AFTER EX SUP PROG COMMAND 

IFTLERR- RESPONSE STATUS ERROR: actual status error message 

IFTLERR- HOST/CONTROLLER OUT OF SEQ 

IFTLERR- REMOTE PROG NOT RUNNING 

IFTLERR- UNKNOWN RETURN STATUS CODE 

IFTLERR- COM AREA INIT ERROR 

IFTLERR- PORT/HOST SYNC ERROR 

IFTLERR- MESSAGE LENGTH ERROR 

IFTLERR- UNKNOWN ENOCOOE RECEIVED 

IFTLERR- ADAPTER PURGE ERROR 

IFTLERR- UNKNOWN INTERRUPT 

IFTLERR- INIT bEQ STEP TIMED OUT 

IFTLFRR- INIT SEQ COMPARE ERROR 

SFTlERR- UNEXPECTED ATTENTION END MESSAGE RECEIVED 

IFTLERR- UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED 

IFTLERR- UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED 

IFTLERR- INVALID COMMANO ENO MESSAGE RECEIVED 

IFTLERR- UNKNOWN MESSAGE TYPE RECEIVED 

IFTLERR- OUTSTANDING COMMAND BUFFER FULL 

IFTLERR- OUTSTANDING COMMANO BUFFER OUT OF SYNC ERROR 

IFTLERR- UNKNOWN MESSAGE NUMBER RECEIVED 

IFTLERR- FILE READ ERROR 

IFTLERR- PORT/CONTROLLER TIMFOUT ERROR 

IFTLERR- ILLEGAL FCT FILE LENGTH 



J 2 
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REV B PATCH 00 


i c 


0881 


i c 


0832 


c 


0883 


; C 


0884 


; C 


0885 


; C 


0886 


; C 


0887 


i C 


0888 


; C 


0889 


; C 


0890 


j C 


0891 


; C 


089? 


; C 


0895 


; C 


0894 


; C 


0895 


: C 


0896 


i c 


0897 


; C 


0898 


; C 


0899 


; C 


0900 


; C 


0901 


C 


0902 


; C 


0903 


; C 


0904 


; C 


0905 


; C 


0906 


; C 


090 7 


; C 


0908 


; C 


0909 


; C 


0910 


; C 


09U 


; C 


0912 


; C 


0913 


: C 


0914 


; C 


0915 


; C 


0916 


; C 


091 7 


C 


0918 
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SFTLERR- NO ADDITIONAL UNITS TO FORMAT - ABORTING 

IFTLtRR- INIT CODE RE-ENTERED DUE TO PWR FAIL 

$FTLERR- ABORTING HOST AND REMOTE PROGRAMS 

JFTLERR- ILLEGAL NUMBER OF UNITS SELECTED 

JFTLERR- LIMIT OF SIXTEEN UNITS PER FORMATTING SESSION 

$FTLERR- RC25 CONTROLLER INITIALIZATION ERROR 

$FTLERR~ PROTOCOL VIOLATION ERROR 

UTLERR- COMMUNICATION AREA INIT ERROR 
i 

! Dup return status codes 

i 

SUCCESSFUL 

INVALID COMMAND 

NO REGION AVAILABLE 

NO REGION SUITABLE 

PROGRAM NOT XNOWN 

LOAD FAILURE 

STANDALONE 
; 

} MSCP return statu9 codes 
I 

SUCCESS 

INVALID COMMAND 

COMMANO ABORTED 

UNIT -OFFLINE 

UNIT-AVAILABLE 

MEDIA FORMAT ERROR 

WRITE PROTECTED 

COMPARE ERROR 

DATA ERROR 

HOST BUFFER ACCESS ERROR 

CONTROl.L ER ERROR 

DRIVE ERROR 

MESSAGE FROM AN INTERNAL DIAGNOSTIC 



I<2 
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RFV B PATCH 00 


: C 


0919 


; C 


0920 


; C 


0921 


; C 


0922 


; C 


0923 


; C 


092^ 


; C 


0925 


; C 


0926 


J C 


092/ 


; C 


0928 


; C 


0929 


i c 


0930 


; C 


0931 


i C 


0932 


; C 


0933 


{ c 


0934 


; C 


0935 


; C 


0936 


{ c 


0937 


; C 


0938 


C 


0939 


: C 


0940 


; C 


0941 


; C 


0942 


: C 


094 3 


; C 


0944 


: C 


094 5 


; C 


0946 


C 


094 7 


: C 


0948 


r~ 


0949 


; C 


0950 


; C 


0951 


; c 


0952 


; C 


0953 


C 


0954 


; C 


0955 


C 


0956 


; C 


095/ 


; C 


0958 


; C 


0959 


; C 


0960 


; C 


0961 


j c 


0962 


; C 


0963 


j C 


0964 


; C 


0965 


i C 


0966 


; C 


096 7 


: C 


0968 


; C 


0969 


; C 


09/0 


; C 


09/1 


C 


09/2 


; C 


09/3 


; C 


09/4 


; C 


0975 
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The formatter issues the following messages upon normal completion. All 
but the last are sent as DUP informational messages. The last is sent 
as a DUP termination message. 



J. . 
2. 

3. 



5. 



6. 



7. 



8. 



9. 



11 



IZ. 



"format completed" 

"n revectored L3Ns" 

Where n is the number of LBNs revectored !n 

area. 



the user data 



"n primary revectored LBNs" 
Where n is the number of LBNs 
primary revectors. 



>n message 02 which were 



"n secondary/tertiary revectored LBNs" 
Where n is the number of the LBNs in message i>? which were 
secondary or tertiary revectors. 

"n bad blocks in the RCT area due to data errors" 

Where n is the number of blocks in the total RCT area which 

were bad due to errors in the data portion of their sectors. 

"n bad blocks In the RCT due to header or timing errors" 
Where n is the number of blocks in the total RCT area which 
were bad due to errors in the header or timing areas of 
their sectors. 

"n bad blocks in the DBN area due to data errors" 

Where n is the number of blocks in the DBN area which were 

bad due to errors in the data area of their sectors, 

"n bad blocks in the DBN area due to header or timing 

errors" 

Where n is the number of blocks in the DBN area which were 

bad due to errors in the header or timing area of their 

sectors, 

"n bad blocks in the XBN area due to data errors" 

Where n Is the number of blocks in the XBN area which were 

bad due to errors in the data area of their sectors. 



10, "n bad blocks in the XBN area due to header or timing 
errors" 

Where n is the number ,f blocks in the XBN area which were 
bad due to errors in the header or timing area of their 
sectors. 



"n bad RBN'i" 

Where »■ is the number of blocks in the RBN area which were 

bad due to errors in the data area of their sectors. 



"n blocks retried g.i the check pas**" 

Where n is the number of blocks which had an error 

first read attempt after formatting. 



on the 



ZRCHB1 

REV B PATCH 00 



0976 
0977 
0978 
0979 
0980 
0981 
098? 
0985 
0984 
0985 
0986 
098 7 
0988 
0989 
0990 
0991 
0992 
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13 

14 



"FCT used successfully" or 



"FCT was not used" 
Depending on the answers to the start-up questions and the 
availability of the bad block information (FCT). This 
message has the DUP termination message code* 

5,0 DEVICE INFORMATION TABLES 



Hardware parameter coding questions 



HW_Q1_IP 
HW..Q2..VECT0R 
HW Q3 BR 
HW.Q4JJNIT 



IP REGISTER ADDRESS 
INTERRUPT VECTOR ADDRESS 
BUS REQUEST LEVEL 
UNIT NUMBER TO FORMAT 



M2 



/RCHB1 




RF.V B PATCH 00 


; C 


0993 


; C 


0994 


; C 


0995 


; C 


0996 


c 


0997 


; C 


0998 


t c 


0999 


; C 


1000 


; C 


1.001 


i C 


100? 


; C 


1003 


; C 


1004 


; C 


1005 


; C 


1006 


5 C 


1007 


c 


1008 


; C 


1009 


; C 


1010 


; C 


1011 


; C 


1012 


; C 


1013 


; C 


1014 


i C 


1015 


; C 


1016 


j C 


1017 


; C 


1018 


; C 


io:.9 


; C 


1020 


j C 


1021 


; C 


102? 


j C 


1023 


; C 


1024 


; C 


1025 


; C 


1026 


; C 


102 7 


j C 


1028 


; C 


1029 


; C 


1030 


j C 


1031 


i C 


1032 


; C 


1033 


: C 


1034 


; C 


1035 


; C 


1036 


; C 


1037 


! C 


1038 


; C 


1039 


C 


1040 


; C 


1041 


; C 


104? 


; C 


1043 


; C 


1044 


; C 


1045 


; C 


1046 


C 


104/' 


; C 


1048 


J c 


1049 
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6.0 TEST SUMMARIES 

6.1 Reformat Mode Procedure 

Reformat mode is accomplished in four sections; 

* Table Setup 

* Scanning 

* Replacement 

* Check Pass 

6.1.1 Table Setup 

This section will build an RCT skeleton and perform part of the primary 
revector ing. 

A, The presence of ft good F'Cl will be determined by the ability 
to read each block in an FCT copy, and by verifying the data 
contained in the FCT Information Block. 

If none of the four FCT copies is good, the Formatter will 
either: 



1. 
2. 



Abort the program if DM software question #6 
answered with a 'NO'. 



was 



Will do a Reconstruct mooW if software question »>6 
was answered with a 'YES'. 



(Software question 06 is: Continue 
information is inaccessible (Y/N):). 



f bad block 



B. 



C. 



U. 



The RCT tracks will be formatted. Bad blocks in the RCT 
area will be marked with a header code of 11, If a bad 
block occurs in the same position in each copy of the RCT, 
the format will be aborted, as the media is unusable. 

Both outer and inner D8N areas will be formatted with hce . 
Two of these inner DBN tracks will be formatted with *20 . 
and -20. offset for diagnostic purposes. 



A part i al 
Informat ion 
Oescr iptors 
transformed 



RCT will be built from the FCT: 
Block will be assembled. FCT 
coded for primary revectoring 
into RCT entries. This is done by 



The RCT 

Bad Block 

will be 

convert ing 



the PBN address into an LBN address, and entering it into 
the corresponding RBN descriptor slot for the particular 
track, with a code of 02, Other RBN descriptors will be 
designated as unallocated (code 00) if they have a 
corresponding RBN, or as nulls (code 10) if they do not. 



Two copies 
tracl- s. 



Of the RCT will be written to each of the two RCT 



All 
an 



I UN' 

"R2" 



marked 
Table. 



for secondary 
Replacement 



revectoring will be stored in 
RBN's for these LBN's will be 



ZRCHB1 
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• C 


1050 


; C 


1051 


; C 


1052 


; C 


1053 


J c 


1054 


; C 


1055 


; C 


1056 


; C 


1057 


: C 


1058 


; C 


1059 


; C 


1060 


; C 


1061 


; C 


106? 


; C 


1063 


i c 


1064 


c 


1065 


c 


1066 


; C 


106 7 


C 


1068 


C 


3 069 


; C 


1070 


; C 


10/1 


; C 


1072 


; C 


1073 


; C 


1074 


: C 


1075 


; C 


1076 


; C 


10? 7 


; C 


1070 


; C 


10/9 


; C 


1080 


; C 


1031 


; C 


1082 


; C 


108? 


; C 


1084 


: C 


1085 


; C 


1086 


; C 


108/ 


C 


1088 


; C 


1089 


; C 


1090 


; C 


1091 


; C 


1092 


; C 


1093 


c 


1094 


; C 


lO'* 1 . 


; C 


1096 


j C 


109/ 


; C 


1 098 


: C 


1099 


; C 


1100 


: C 


1101 


; C 


1102 


; C 


1103 


; r 


1194 


; C 


11C 


i C 


IIOl 



N2 
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resolved after primary revector ing is completed. 



6.1.2 

NOTE: 



Scanning 



The following section 6.1.2 generally describes the scanning philosophy 
used by this formatter. Specific scanning philosophies for each formatting 
mode is as follows: 



REFORMAT mode: 

In this mode the F , >,r file is accessible. The RCT 
the FCT and the LBN irea is scanned for additional 
will scan only for rata pattern W. 

RESTORE mode: 



f i le i s bui it from 
bad blocks. This mode 



In this mode nr\ external FCT File is brought in form the Host anO written 
to the media's FCT track. After the FCT file has been restored a normal 
Reformat mode is performed scannir.g for data pattern W only. 

RECONSTRUCT mode: 



In this mode the FCT file is inaccess : ble . The FCT I.D. block is not 
formatted but rather read/write scanned with all data pattern*-.. The I.D> 
is then rebuilt indicating zero FCT entries. The Reformat mode overlay 
'- then called in to DM space and will read/write scan the LBN area with 



is 



all data patterns. 

This section writes headers throughout the l.DN 
additional bad blocks, and completes the primary 



area. It 
revector i ng. 



scans for 



Scanning will start at LBN Track (Top Surface 0GB) and progress to LBN 
Track Max (Bottom Surface 0GB) following logical ordering of LBN tracks. 



E, An LBN track is written 
using the Format Track 



will result In 10 
will be aborted. 



with headers and Data 
on Index XF'C. A failure 
retries. If all retries fall, 



Pattern U, 
of this XF'C 

the format 



The header codes 
determined by the 
following table: 



connote block status. They will be 
FCT Bad Block Descriptors as in the 



: FCT Descriptor Code 

+ - ...... _ 

Not listed 
12 or 14 
02 or * 1 

01 

Any for 4 RBN 



Header Code 



00 Good l.BN 
05 - Primary reve:tor 
03 - Secondary revector 
11 - Secondary revector 

header problem 
I J • Unusable RBN 



B3 
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REV D PATCH 00 


c 


1107 


; C 


1106 


; C 


no* 


; C 


1110 


5 C 


1111 


C 


111c? 


; C 


1115 


; C 


1114 


; C 


1115 


C 


111b 


; C 


in: 


; C 


liifl 


; C 


iii9 


C 


1120 


r C 


1121 


; C 


112c' 


; C 


1123 


c 


1124 


; C 


1125 


; C 


1126 


; C 


1127 


r 


1128 


; C 


1129 


; C 


1150 


; C 


1131 


; C 


1132 


; C 


1133 


; C 


1134 


; C 


1155 


; C 


1136 


j C 


1137 


C 


1138 


; C 


1159 


; C 


1140 


; C 


1141 


! C 


1142 


J C 


1143 


; C 


1144 


; C 


114b 


; C 


1146 


; C 


1147 


; C 


1148 


; C 


1149 


; C 


U50 


; C 


1151 


; C 


1152 


; C 


1153 


; C 


1154 


s C 


1155 


; C 


1156 


; C 


1157 


; C 


1158 


; C 


1159 


; C 


1160 


. r 


1161 


: C 


1162 
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u. 



H. 



NOTE 



If the RBN 
per track 
with an FCT 



is not listed In the FCT, a elngla block 
may b* designated for primary ravactoring 
descriptor coda of 12 or 14 



• rror 

ma by 



with an FCT daacriptor coda of 12 or 14, 

If thara ara no bad blocks in tha track, the Forced 
Indicator will ba aat in tha RBN at Format XFC ti 
complimenting ! ta expected tDC flald 

All blocka In tha track will be raad without ravactoring 
enabled, and compared to Pattarn W, A write read -cohere 
ssqusncs will than ba perfumed on aach block in tha track 
uaing Pattarn M, which is tha complimant of Pattarn U. 

^rror-fr^ blocka will ba writtan with LBN-unique Pattarn 1. 
If tha trock haa a primary ravactor block, i ta data flald 
will be writtan with 128 copiaa of tha tracka RBN *Mr*t* t 
and tha RBN will ba writtan with LBN-unique Pattarn 1 for 
tha replaced block. 



Each block , except 

blocks, l« raad and _ r _ __ 

ThJa will ba dor»e with ravactoring enabled 

>t block, and disabled For t 



used RBN and 
ta data compared 



rep lacemen 



aacondary replacement 
to tha expected value. 
for a primary 
tha others. 



This 
4. 



procasa Is rapaatad using LBN -un I qua pat tarns 2, 3 and 



Any error, Including corractabla arrora, wil? rasult in 4 
retries. Any block Failing theee will ba considered a bad 
block. If no primary revector block already exists In the 
track. tha firat to Fail will be primary rtvtcto^td by 
making an RCT entry in ita RBN daacriptor, reh«ac*er 1 no it 
with a code of 05, and resetting the RBN forced trror flag, 



Other new bad blocks will be 
revector codes of 03 ~r 11, 

header errors. 



reheedered with secondary 
depending on the presence of 



C 1163 



If any new bad block(a) is found, steps D and b will be 
partially repeated to Include the additional bad block 
information, and verify the format write, The 
wr i te- read -compare aequences with patterns 2, 3 and 4 will 
not be repeated, however, 

Addreeeea of blocks to be secondary revectored will be 

accrued in an "R2 Table*' within the program, until 127 
entries are made. At this time, 8 copies of the table will be 
saved on outer DBN tracks starting at DBN block top surface. 



6.1,3 Replacement 

This sectlcn will complete the RCT and resolve all secondary bad block 
replacement, 



C3 
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REV B PATCH 00 


; C 


1164 


; C 


116*3 


; C 


■16b 


; C 


1167 


; C 


1168 


; C 


1169 


i C 


1170 


; C 


1171 


! C 


1172 


; C 


1173 


i c 


1174 


; C 


1175 


; C 


1176 


; C 


1177 


; C 


1176 


; C 


1179 


J C 


1180 


; C 


1181 


J C 


1182 


; C 


1183 


; C 


1184 


; C 


1185 


; C 


1166 


; r 


1187 


i c 


1188 


; C 


1189 


; C 


1190 


; C 


1191 


C 


1192 


i C 


1193 


; C 


1194 


; C 


1195 


: C 


1196 


; C 


1197 


; C 


1198 


; C 


1199 


; C 


1200 


; C 


1201 


5 C 


1202 


; C 


1203 


; C 


1204 


; C 


1205 


; C 


1206 


; C 


1207 


; C 


1208 


; C 


1209 


; C 


1210 


; C 


1211 


: C 


1212 


; C 


1213 


; C 


1214 


C 


1215 


; C 


1216 


; C 


1217 


; C 


1218 


; C 


1219 


; C 


1220 
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R2 

y 



I, When all tracks havt underoone the scanning section, The "R 
Tables" will be read from the media. The secondary 
revectors will be resolved in the RCT, findinQ RBN Bad Block 
Descriptors through the Pi no-pong algorithm. 

Tracks whose RBN is assicjned to b« ussd for secondary 
revectoring will be written to reset the forced error 
indicator in the RBN, 

6,1.4 Check pass 

This section makes write and read passes of the media as a final check 
to verify revectoring capabi 1 . t ies. 



J. 



Storting with the LBN track pair nearest the 0GB, the data 
fields of all blocks on the media will be written as 
follows: 



Block Type 

Good 

Primary revectored 

Secondary revectored 

Used RBN 



Data 

Pattern 3 

Pattern 3 of replaced block 

Pattern 3 of replaced block 

Pattern 3 of replaced block 



6.2 



Starting with the top surface LBN track nearest the 0GB all 
Host Application Blocks will be read to twst for 
revectoring capabilities. Failure of any read or write will 
result in 10 retries, failure of all retries will result in 
a fatal error message sent to the host and the format aborted, 



Restore Mode Procedure 



Restore mode will onlv be run by DIGITAL Manufacturing personnel. It 
requires an external copy of the FCT produced when the platter was 
manufactured and is stored on the System Boot Media. This procedure is 
as follows: 

A, The FCT tracks will be formatted using the Format Track on 
Index XFC. A failure of this XFC will r. ,ult in 10 retries. 
If all retries fail, the format will be aborted, 

Che header code of each block will be 12 ♦ indicating good 
FCT blocks. The data will be pattern W. 

B» Each block will be read and its data verified. 
Urite read-cof^pare sequences will then be performed on each 
block, using patterns M, 1,2, 3 and 4, 

Any errors will result in 10 retries. Any block failing a 

retry will be considered a bad block. 



D: 



) 



JRCHBl 

REV B PATCH 00 
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c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



1222 

1223 
1224 

1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1236 
1239 
1240 
1241 
124? 
1243 
1244 
1245 
1246 
124? 
1248 
1249 
1250 
1251 
125? 
1253 
1251 
1255 
1256 
125/ 
1258 
1259 
1260 
1261 
126? 
1263 
1264 
1265 
12t6 

126/ 

1268 
1269 
12 70 
12/1 
12/? 
12/3 
12M 



C, The track9 will be reformatted, If necessary, to change bad 
block header codes to 11. 

D, The operator will be Queried for the original FCT File name. 
The FCT file will then be inputted from the boot device and 
sent to the DU when requested. 



E. 



F. 



Two copies of the FCT will be written to each 
These will include bad blocks found in step B. 



FCT track 



This mode will be aborted if any FCT sector fails in all 4 
copies. The RECONSTRUCT mode will then be called in if the 
option to continue if the FCT file is inaccessible else the 
formatter will be aborted. 

G, The program will automatically enter the Format Mode, and 
proceed as In 4,1 above. 

6,3 Reconstruct Mode Procedure 
This mode will be performed If: 

1. The operator has explicitly requested this as the formatting 
mode by answering 'NO 1 to the following software questions: 

, "Use existing Bad Block information?" 
. "Down- line load Bod Block information?" 

2. The Operator ha9 responded with a 'YES' to the software 
question: 

, "Continue if Bad Block information is Inaccessible?' 
and the Bad Block file is discovered inaccessible 
during a Reformat or Restore Formatting Node. 

Reconstruct formatting procedure is as folloNs: 

1, Sector of each FCT copy will be read/write scanned. 

The Formatting process will b<* aborted if all four copies of 
Sector are bad. 



2. The Volume Information Block (Sector 0) 
reconstructed using the following Information: 



will be 



. Media Mode 

, Formatting Instance Number 

. Volume Serial Ni-nber 

, Time of First Formatting 



C l ;■■/«_, 
C 12/6 
C 1277 



• 512 Byte Format 

• 

■ Operator Supplied S.N. 

• Operator Supplied Date 
C VAX /VMS Format 1 



, Time of Most decent Formatting » Operator Supplied Date 

C VAX /VMS Format ^ 
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; C 


1278 


; C 


1279 


; C 


1280 


j c 


1281 


; C 


1282 


: C 


1285 


; C 


1284 


; C 


1285 


; C 


123b 


i C 


1287 


; C 


1288 


; C 


1289 


; C 


1290 


; C 


1291 


: C 


1292 


; C 


1293 


; C 


1294 


; C 


1295 


; C 


1296 


c 


1297 


; C 


1298 



E3 
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. Number of Used 51? Table Entries ■ 

, Number of Used 576 Table Entries ■ 

. Remaining Words Zeroed 

The Volume Information Block is then written 
copy and read back for data integrity, 



to each FCT 



C 1299 



Read fni lures at all four copies will cause the formatting 
process to abort. 



NOTE 
Remaining FCT Sectors 1 thru 15 are not altered. 



The formatting process will then perform the Reformat Mode 
Procedure , 
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REV B PATCH 00 


; C 


1300 


; C 


1301 


C 


1302 


{ c 


1303 


i c 


1304 


; C 


1305 


j c 


1306 


; C 


1307 


; C 


1308 


C 


1309 


; C 


1310 


; C 


1311 


j C 


1312 


; C 


1313 


; C 


1314 


; C 


1315 


; C 


1316 


i c 


1317 


; C 


1318 


; C 


1319 


; C 


1320 


; C 
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; C 


1322 


; C 


1323 


; C 


1324 


; C 


1325 
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7.1 «T TENDED FORMAT MODE 

In this HOST mode the operator must be present at the console terminal 
to respond to DM formatter software questions, Via these software questions 
the operator con choose from any of the three formatting modes (REFORMAT, 
RESTORE or RECONSTRUCT) and can specify the unit number to be formatted, 
The unit number given to the DM formatter however must be the same unit 
the host reported bringing on-line, 



7.2 UN -ATTENDED REFORMAT MODE 

In this HOST mode a REFORMAT mode will 
physical unit numbers contained within 



automatically be performed on 
operator built P.Tsbles. 



all 



When this mode is select sd (which is the hosts default mode) the host 
w«ll ask the operator for the date in the same format an the DM formatter 
would. This date is then automatically given to the DM formatter and the 
physical unit number within the current P,Tabl^ is given to the DM as the 
unit to format. 



In this mode the operator can select up to 16 units (a unit being a physical 
platter) to format and be free to leave the console terminal while the 
units are being formatted. 
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1328 
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1329 
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1330 




i c 


1331 


DBN 


; C 


1332 




5 C 


133? 




; c 


1334 


DM 


; C 


1335 




l c 


1336 




: C 


1337 




; C 


1338 


EDC 


; C 


1339 




; C 


1340 




; C 


1341 


KCT 
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8,0 APPENDIX 



APPENDIX A 
GLOSSARY 



Diagnostic Block Number, A number of per surface are reserved 
for diagnostic use. These tracks are called the DBN area. 

Diagnostic Machine. An Interpreter built Into the RC25 
firmware which is used to execute programs downline loaded 
into the RC25's buffer memory. 

Error Detecting Code. A means of verifying correct controller 
operat ion. 

factory Control Table. A 16 sector table containing volume ID 
Information and a mop of bad blocks on the media. The FCT is 
written as part of the Initial media formatting. 

Field Replaceable Unit, An item which may be exchanged in the 

field. 

Inner Guard Bancte. The gvard bands closer to the spindle. 

Initialization and Polling Register. This register J«j used 
for port control. 

Logical Block Number. Host visible blocks including the Host 
Application Area and the RCT tracks. 

Mass Storage Command Protocol. The method of communication 
used between the host and the RC25 over the bus. 

Outer Guard Bands. The guard bands further from the spindle. 

Physical Block Number. The absolute address of a block on 
RC25 media. 

Replacement Block Number, RC25 has one RBN per track for bad 
block replacement . 

Replacement arc Caching Table. A 16 sector table containing 
media ID information and a map of the current bad block 
locat ions. 

RC25 product name. 

Status, Address and Purge Register for port control, 

Extended function Coll. Instructions which interface 
Diagnostic Machine code to the RC25 microcode, 
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Bad block replacement 
block with a good 
replacement block , or 



APPENDIX B 

BAD BLOCK REPLACEMENT 

is an addressing technique for replacing o bad 
one. The block which replaces it is called a 
RBN. 



Each RC25 track has 32 blocks. In the host -addressable area, the first 
thirty one are for normal data storage, and are called Logical Blocks, 
or LBNs. The lrst block on each of these tracks is an RBN. 



If a single bad block exists on a 
of that track. This is called Pr 



track. It can be replaced by 
mary replacement. 



the RBN 



If other bad blocks are found in 
by unused RBNs of other tracks. 



the same track , they must be replaced 
This is called Secondary replacement. 



Two types of tables record bad block information for the media. One is 
the Factory Control Table? (FCT), which is written on the media at the 
factory. It is a map of the bad block a caused by the manufacturing 
process. The other is the Replacement and Caching Table (RCT"),. whim 
includes both the FCT information, and bad block information uncovered 
by the latest formatting of the media, There are four copies of each 
table per unit, 
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APPENDIX C 
FCT 



The basic unit of the FCT is the Bad Block Descriptor. This descriptor 
gives the Physical Block Address o r the bad block, and a four bit code 
indicating why it was retired. 

The Physical Block Address, or PBN, is the absolute address of a block 
anywhere on the media, without the distinction of host-accessibility. 



There are a 
descr iptors 
order within 



variable number of Bad Block Descriptors in 
are sorted in descending track order, and 



tracks. 



the FCT. These 
In ascending PBN 
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APPENDIX D 

RCT 

The basic unit of the RCT Is the double -word RBN Descriptor, There are 
1504 of these, one for each RBN in the host -accessible LBN area of the 
media. 

The position of each RBN Descriptor in the RCT is fixed. The first RBN 
Descriptor is associated with the RBN block in the first host- visible 
track. The second descriptor with the RBN of the second host- visible 
track , etc . . 

In the format process, the FCT is fliven. Four copies of it are found on 
the mediat two on each r*CT track. The RCT is rebuilt from the FCT 
entries and additional bad block information is gathered in a scan pass. 
Primary replacement may be possible for one block per track if 
identified as bod by either of these sources. The tracks RBN must 
itself be a good, unused block. 

Primary replacement is accomplished by: 

* Making the bad blocks header code 05. 

* Writing the bad blocks data field as 126 

copies of its tracks RBN address. 

* Writing the address of the bad block to the associated 
RBN Descriptor In the RCT (with a code of 02). 

Secondary replacement is needed for bad blocks which do not have a good, 
unused RBN block . 

Secondary replacement is accomplished similarly to Primary Replacement, 
but first an unused RBN of another track must be found, 

* Find an unused RBN Descriptor in the RCT, 
us I ng the °Ing-pong algorithm. 

* Make the bad blocks header code 03 or 11, 

depending on error type. 

* Write the bad blocks djta field w : th 120 
copies of the target RBN address. 

* Write the address of the bao block to the associated 
RBN Descriptor in the RCT (with a code of 03), 

After replacement an attempt by the host to access a replaced block will 

result in access to the block with which it had been replaced. 

Good blocks are headered with codes of 00. 

To help detect addressing problems, unused RBN*; will hove forced error 

indication set by complimenting their tUC fields, 
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APPENDIX E 

DATA PATTERNS 

Six patterns will be used during the scan pa-js. 

Pattern U Is a pseudo- random pattern, with the LBN address as the first 
word. Pattern M is its compliment, Its use will assure that all drtn 
bits can toggle. 

Patterns 1 through 4 ore made up of single word elements. These 
elements ore as follows: 



Element A - 071311. 

Element B - 106466. 

Element C * 043146. 

Element D • 134631. 

Element L - 17NNNN, 



This causes peak shift in data encoding. 

This causes single transitions spaced by 
1, 2, 3 and 4 *eros. 

This causes both the highest ano lowest 
frequency of transitions In the encoding 
logic. 

This also causes both the highest and 
lowest frequency of transitions in the 
encoding logic. 

Uhere NNNN is the LBN address to which the 
pattern is written. 



These elements are assembled into patterns 1 through 4 as follows? 

Pattern 1 * L8BAAABBBBAAAAABBBBBBAAAAAAABBBBBBBB etc. 

Pattern 2 » BtABBBAAAABBBBBAAAAAABBBBBBBAAAAAAAA etc. 

Pattern 3 - I.DDCCCDDDDCCCCC0DDDODCCCCCCCDDD0ODDD etc. 

Pattern 4 * DLCDDDCCCCDDDDDCCCCCCDDODDDDCCGCCGCC etc. 
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Embedding the LBN redress within the patterns gives them LBN-un i queness . 
This feature is taken advantage of in validating revectoring. 

Three steps are taken to insure the data will not interfere with 
Secondary Revectoring by matching the "Compare 128" algorithm. These 
are: 

+ The high four bits in every word contain invalid header codes. 

* Before secondary revectoring is attempted, blocks not involved 
with revectoring will be written with data fields which 
contain no 32 -bit repetitive patterns. 

* When the format is complete, no u: revectored blocks will 
contain data which has 32-bit repetitive patterns. 
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APPENDIX F 

Pins-Pong algorithm 



The 
the 
the 



search begins at the primary replacement block descriptor. If the 
descriptor is not empty then a ping-pong search of the sector containing 

primary replacement block descriptor ensues. If an empty descriptor 
is not encountered then a linear scan of the remaining RCT blocks and 
descriptors within blocks, (with wrap-around at the end of the RCT) ensues 
until one of two things occur: 



An unallocated^ replacement block descriptor 
overflow location - a secondary. 



is encountered in an 



2 



The entire RCT is searched without success - a failure 



The search operates at two levels: 

1, Within the primary descriptor RCT sector, outward from the primary 
descriptor searched (starting with the next highest RBN descriptor). 
Note that this degenerates to a linear search once the first or last 
descriptor is encountered. 

2, Then a linear search, ^ start ing with the next highest RCT sector 
address, once the initial sector has been completely searched. Each 
new sector is searched in a linear fashion starting at the lowest RBN 
descriptor and scanning until the highest RBN descriptor 5n the 
sector Is encountered. 

If at any time during the linear search a null (not an empty) entry is 
encountered, the search resumes at the first entry in the third RCT sector 
(the first with descriptors). The search is terminated when it is certain 
that all the RCT entries have been searched. 
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pr t mory 



< -♦ 



! pong 



! ping 



< -♦ 
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APPENDIX (i 
CREATING /RCHBO DM CODE 

FILES REQUIRED 

A, RTEM (RT-11 emulator) including* 

a. DMACRO, SAV The DM macro aeeembler 

b. DMACRO.MAC The DM macro library 

c. DTX.SAV Tha XXDP* UPD2 emulator 

d. DTX DRIVERS including- 

1. IZDDAO.DTX 

2. IZDKAO.DTX 

3. IZDLAO.DTX 

4. IZDMAO.DTX 

5. IZDTAO.DTX 

6. IZDXAO.DTX 

7. I2DYA0.DTX 

8. IZMHAO.OTX 

9. IZMSAO.DTX 
10. IZMTAO.DTX 

a, STARTM,COM RTEM atart up com fila. Saa below 

aeaembling DM source files 

B. DMCONV.EXE 

Converts DMACRO output .SAV filaa into aBliaa 
aac i ! array, Vhia aac i 5 array ia than built Into 
a aaparata Blias morula and compiled. Tha objact 
codt from th i a mooVile ia than linked with other 
Blies objact modules resulting in a APT compatible, 
contiguous objact fila including both host t%n<i DM 
coda. 

G.l BUILDING OM SOURCE CODE 

DM source coda can ba built using any of tha tt>t editor?* 
available under any operating eyetem. Uu » da lines for 'ts 
cpfi^'O'i can be found in the A/iEC.DOC manual, 

G.2 ASSEMBLING DM SOURCE CODE 

Th* DM m*cro aaaembler (DMACRO SAV) is jaad to assemble DM 
code module* and ia written to ba r K *y under RT-11 (or RTEM 
emulator). The following example demonstrated the RTEM 
startup com file used to create the raleeeed DM formatter 
.SAV file. Thia atart up command file includee: allocating 
more virtual storage bringing the DM source code Into the 
RTEM ayatam, assembling the DM source coda* jinking and 
moving the output . SAv file b»c*< to the user directory. 
Tha following enample ia performed on VMS operating system. 



$ <VMS* 

I set def { neale, rtem) 

i mcr rtem 

. RTT'/vs 

RTEM U v VAX/VMS) VOl.OO 
HT-UFB (b) V04.00L 



!set default directory to the RTtM yub directory 
•Run the RT LI emulator 
!Type y v5 to prompt RTt* 
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The following is performed by the startm.com start-up command file, Before 
running the command file the virtual storage disk VS1: must hove already 
been generated using the JOAT utility. 



G.3 



SET T«;NOCRLF\ SCOPE, WIDTH 80 

r JOAT 
♦MORE/VjVSl 
*tc 

.DEL VS1:*.* 

.R rip 

♦V31: »(NE ALE. AZTEC] AZFMTR, MAC/F 

♦ ♦C 

.R DMACRO 

*VS1: AZFMTR, AZFMTR -DMACRO.VSltAZFMlR 

*'C 

,R LINK 

♦VS1: AZFMTR, AZFMTR-VSl;AZrMTR 

*tC 

,R FIP 

*[ NEALE. AZ TEC )/F "-VS1 : AZFMTR.LST 

•[ NEALE .A2TEC1/F/I-VS1; AZFMTR, SAV 

**C 

.BOO SY 
$ <VMS> 

BUILDING THE BLISS ASCII ARRAY 

The next step is to run the DMCONV program to build 
Bliss ascii array from the DMACRO output , SAV file, 
do this follow this example: 



!Set term characteristics 
•Enter JOAT (Jack of all trades) 
{Allocate virtual device VS1: to 
•Exit JOAT 



ut i 1 1 ty 
RTEM system 



.♦Make room in VSlt for this assembly 
{Enter File interchange program 
{Bring in DM source code from user directory 
♦Exit FIP 

{Run the DM ma<ro assembler 
{Assemble DM source and save in VSt: 
IFnit the DM assembler 

•Run the RTEM linker 

•Link the ,obj file and save in VS1: 

•Exit the linker 

{Run FIP 

{Output .LSr file to user directory 
{Output ,SAV file to user directory 
•r.xit FIP 

{Return to VMS 



the 

To 



$ run DMCONV.EXE 
INPUT FILE NAME (I.fc. 
OUTPUT FILE NAM* (I.E. 
BLOCK VECTOR NAME U.E 



XXXXXX. It Y ) AZF MTR. SAV 
XXXXXX. > tl ) AZFMTR. VEC 
XXXXXX, YYY ) AZFMTR 



Note: 

In this example It 
.SAV f i le are both 



jr assumed that DMCONV.EXE and the 
*n the default directory. 



G«4 BUILDING THE DM BLISS MODULE 

The output from the DMCONV program ( AZFMTR. VEC ) is then 
inclucied into a Bliss module (for the purpose of ZRCHBO this 
module is ZRCHB6.B16) and compiled, fo compile this module 
takes a VERY long time so it is suggested that It is submitted 
to the batch queue after hours. 

The entire procedure to comp'lt and linU all Bliss source 
modules (including the DM bliss module) is. demons troted by 
the following commend procedure (eu concern)? 



[)4 

ZRCHB1 ZRCH60 RC25 DISK fORMATTER 5-Apr~1984 13:43:03 VAX - 11 Bliss 16 V3 555 SEQ p2qJ 2 42 

REV B PATCH 00 USER DOCUMENTATION ,?2~Feb-1984 12:03:49 SPIDER IUSERS: [ NF.AI.E .AZTEC ]ZRCH81 . B16; 7 (27) 

C 172? J Sozcom ICvecute command procedure 

C 1728 $ set verify 

C 1729 $ bliss/pdplVliet/library ZRCHB0.R16 

C 1730 $ blise/pdpll/1 isting-2RCH8.DOC 2RCHB1.316 

C 1731 t bliee/pdpll/Het ZRCHB2.B16 

C 1732 $ blisa/pdpll/liat ZRCHB3.B16 

C 1733 $ bliae/pdpll/list ZRCH64.B16 

C 1734 $ blias/pdpll/list 7RCHB5.B16 

C 17 35 $ set process/name *"Ki Her 

C 1'36 i bliss/pdpll/list ZRCH86.B16 

C 173? $ set process/name - "F ! sher man 

C 1738 t kliss/pdpll/list ZRCHB7.B16 

C 1739 $ MCR TKB 

C 1740 ZRCHB/NOHO/NOMM i ZflCH0/CR/-SP-ZRCHB2,ZRCHB3,ZRCHB4 i iTRCHB5 l ZRCHB6,ZRCHB7 i nefslb/lb 

C 1741 / 

C 1742 PAR-DUMMY: 2000 .-176000 

C 1743 STACK -0 

C 1744 // 

C 1745 % !************#>*********•******************************* 

C 1746 $ »♦ * 

C 1747 % t* n ow run the TKBBIN program to create a .bin file ♦ 

C 1748 i *♦ * 

C 1749 * ! ***4,*** ************************************************ 

C 1750 % set novorify 

C 1751 i 

C 175? 

C 1753 ru 1 1 '30IN utility is th »n run on the output from the TKB linker to produce 

C 1754 nn XXI';P* executable .BIN filv. The following is an example of the procedure: 

C 1755 

C 1756 I RUN TKBBIN 

C 1757 Input filename ? ZRCHB 

C 1758 iload Addn 2000 

C 1759 j*fer Addr : 1 

C 1760 ,Nr char j 74600 

C 1761 End of Job 

C 1762 $ 

C 1763 

C 1764 G.5 bETTl?jfi .BIN FILES ONTO XXDP> MEDIA 

C 1765 n-* KT-11 emulator is used to move XXDP» .BIN Files from a 

C WMi v „.*er* directory onto XXDP» media, The following Is an 

C 1^6/ <"*ampie of this procedure, 

C 1768 

C 1769 $ .^ € t def [neale.rtem] !Set default directory t«j RTEM sub-directory 

C 17/0 \ mcr rtem !Run the RT 11 emulator 

C 1771 .RTE N /vs !Type /vs to prompt 

C 1772 ! 

C 17/3 ! The startm.com Command file will auto^si i cal ly 

C I { ' 4 « begin to execute when entering I71EM. Control 

C 17 75 J c the command procedure at this time and do the 

C 1//6 } following; 

C 1/7/ • 

C 1//8 ,R JOAT 'Run JOAT utility 

C 17/9 .0L0:/A {Allocate XXDP» device to pip .BIN f * le to 

C 1 /«U »»C JExit JOAT 

C 1 /81 

C 1/82 .R t IP JHun f IP utility 

C 1783 ♦VSljMNbALE.AZTECyRCHB.BIN/F-/! 'Bring .BIN file fr m u «er directory into VSl: 



7RCHB1 

REV B PATCH 



1784 
178^ 
1786 
178 7 
1788 
1789 
1790 
1791 
179? 
179? 
1794 



E4 



ZRCHBO UCZ!> DiSK MjRMATTtR 



00 USER DOCUMENTATION 



5-Apr-1984 13:43:03 
22-Feb-l984 12:03:49 



SF.Q 00*3 
VAX 11 Bllss-16 V3-555 Paoe 43 

SPIDER JUSERS j [ NEALE . AZTEC ] ZRCHB1 . B16 j 7 ( ?J j 



♦ *C 



.R DTX 

♦DEL DL0:ZRCH6.BIN 

*PIP DlO:ZRCHe.BIN»VSl;ZRCHB.BIN 

*LOAD DL0-ZRCH8.BIN 

XFR: 000001 CORE: 002000 ,76600 

**C 

.BOO SY 
$ <VMS> 



•Exit PIP 

•Run the XXDP* UPDP emulator 
•Delete From XXDP* medio old .BIN file 
•PIP new .BIN file to XXDP * media 
Road the file to verify the check -sum 

JExit DTX 

.•Boot back to VMS 
•Back at VMS again 



F4 



ZRCHB1 




ZRCHBC 


9EV B PATCH 00 


USER 


i c 


1795 




; C 


1796 




c 


179? 




c 


1 798 




: c 


1799 




; C 


1800 




; C 


1801 




i C 


180? 




; C 


1803 




; C 


1804 




; C 


180 r ; 




; C 


1806 




i C 


1807 




i C 


1 SOS 




; C 


1609 




j C 


1810 




; C 


> 811 




; C 


18i;: 




I «... 


i813 




i c 


1314 




: C 


;.8l5 






1816 


)* 




1817 


ELUDOM 



ZRCHBC RC2b DISK FORMATTER 



5-Apr-1984 13:43:03 
22 -Feb -1984 12:03:49 



SEQ 0044 
VAX-11 BUss-16 V3-555 P a g* 44 

SPIDER $USERS;[NEALE. AZTEC ]ZRCHB1.B16 } 7 C28) 



APPENDIX H 

CREATING ZRCMBO HOST CODE 

H.l FILES REQUIRED 

A, i>^t edi tor 
P Bl!«ol6 compiler 
'... TLB 1 inker 

D. TKBBIN Utility This converts Blissl6 .EXE Files Into XXPD* 

.BIN files. 

H.l SOURC 7 FILE CREATING 

Usinq ir.y te>> editor, follow PDP-11 diagnostic design guidelines demons t noted 
<n SUPPR^f UOC B r.-1 CHQUGD.SEQ. 



H 



COM* a. =. NS BLISS SOURCE MODULES 



Follow titcpG starting »t G.4 to compile Bliss source modules and 
to yet the .£';N file onto XXDP* medio, 



.illiE ZRCHB1 ZRCHBO RC25 DISK FORMATTER 
. IDtNi /REV B / 



Psecl* Nome 



PSECT SUMMARY 

Words Attributes 



i COMMAND QUALIFIERS 

; BLIS C , /POPU/LlSTJNiW:'\rv..D0C ZRCHP1.B16 

; Sire: P »'..•:!* - o dat* wo^dci 

; Rl»o I ime: ; ") . 08 , »> 

; Elapsed fi:r.«v 0i':49,4 

; Memory Use*- : ; »..- f. s^jes 

; Compi lot ievi Lonplete 



ZRCHB2 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0006 
0009 
0010 
0011 
0013 
0013 
0014 
0015 
0016 
1505 
1506 
1507 
1508 
150* 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
152/ 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1 54 3 
1544 
1545 



7RCHB0 aC2 r . DTSK FORMATTER 



G4 



5 -Apr- 1984 13:19:09 
5 -Apr -1984 13 : 16; 08 



^EQ 0045 
VAX-li Bli.^-16 V3-555 Pao* 1 

SPIDER$USErtS:[Nu*U..'VTECJZRCHB2.B16 I 5 (1) 



MODULE ZRCHB2 C^T 1 Vi.T ' ZRCHBO RC25 DISK FORMATTER 

IOFNV • 'REV B PATCH 00' , 
AHD -;a.i;}ING ..MODE (RELATIVE) , 
CfJVT^ONMUNT (NOEIS) 
) " 

BEGIN 

Ksbttl 'PROGRAM HF/V>:R' 



Pretty Declarnt t c * ui 

<BLF/LOWERCASE..KEY > 

library 'ZRCHBO' { 
require * BLSMAC .RFQ" j 



•Define RC25 Formatter Library 
! Define Bliss Macro Require file 



The ,->sect named "code or icode*" Is redefinded here 
to be called "a .. ■: .T-rde" . This is done to force the TKB 
linker to place td.-r programs header information starting 
at absolute addrt.o 2000, 

psect 

code - aa$code; 



literal 

DS$NBR_(JF..TF.ST5 •< 1; 



! Indicates number of test in Diag 



The structure of diagnostic program may contain any or oil of the 
ten optional s< i *ijons. But five of the optional sections require a 
pointer thot \s ■'. . i ved by and for the supervisor, and »s located in 
the header blt.^v . Therefore, in relation to the effective use of 
these five point*.- i, the optional sections call must be coded to re- 
flect usage (i.e.. :iny,all,or none). 

The following rcJ'i^; possibilities exist: 

POINTER (BGNRPT^IGNSW.BGNSFT.BGNAU.BGNDU.ERRTBL.BGNSETUP) 

(or any eul«*ir*t ..■>; fie* arys) 



POINTER C ALL ) 
POINTER i NONE) 



j All provides pointers for all five 

j sect i ons 

j None indicates to supervisor that no 

j pointers are required. 

l this Is the default 



No ^o'ntfr'*-- rvre optional using bl*ss. Make sure the following 
section* of rode are in place (In the correct Skels)»eve)n if 
the section*, are blank, 

ARC.UMtNT H»NCM0N 






REPORT CQDe 
SOFTWARE TAQLt 



H4 



ZRCHBJ 

REV B PATCH 00 

1546 
154 7 
1546 
1549 
1550 
155i 
155? 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 

156;' 

15^5 
15t>4 



ZRCH00 RL'2b DISK FORMATTER 
PROGRAM HEhDER 



5-Apr-1984 13:19:09 
5-Apr-19o4 13:16:08 



SEQ 0046 
VAX-11 Bliss-16 V3-555 Page 2 

SPIDER*USERS{[NEALE,AZTEC]ZRCH82.B16i5 CI) 



SFT 
AU 
DU 
IRI- 
SH TUP 

POINTER CALL): 



SOFTWARE TABLE QUESTIONS 
ADD CODE 
DROP CODE 
ERROR TABLE 
ASSEMBLED P -TABLES 



huttd+r «:;ect : on contains general information which des- 
n* \or characteristics of the diagnostic program. This in 



The program 
ci ibes the 

cludey, the T.rocr-am name, and revision and patch -order levels. The 
header also provides space for an event flag register, and for the 
storage of pvintet », through wh*ch the supervisor may find access to 
other key seot L>m. of the programCe ,g. , dispatch table, initialize and 
clean up cooe, tic. )> An argument on the header gives the device type 
If it is !%r\ vxbf * jootable device. This enables the supervisor to pro- 
vide lose- medium Oi*otect ion when necessary. 

HEADER trfaocii C2RCH ', tfMCii'B 1 . Ko5Cii , 0», 1200, 0, PRIOO)} 



ZRCHB2 


PEV B 


PATCH 00 




1365 




1566 




156 7 




1568 




1569 




1570 




15/1 




1572 



14 



2RCH60 RC25 DISK FORMATTER 
DXSrATCH TABLE 

*sbttl 'DISPATCH TA11LE' 



5-Apr~1984 
5-Apr-19o4 



SEQ 004 7 
13:19:09 VAX -11 Bliss-16 V3-555 Poge 

13:16:08 SPIDER 5U5ERS :( NEALE, AZTEC ]ZRCHB2,B16 {5 (2) 



Th* dispatch tab\e •:;«.•: t ion contains address pointers to the various 
test*, contained within the diagnostic program, This section requires 
the coding of or.ly the dispatch macro. 



DISPATCH CDS$NBR„0P U-S7*0; 
ERRTBLj 



jDeflne Supervisor Error table storage 



ZRCHBc? 

RFV 8 PATCH 



00 



1573 

1574 
1575 
1576 
1577 
1578 
1579 
.1560 
1581 
158? 
1583 
1584 
1585 
1586 
158 7 
1588 



ZRCHGO Rul'5 
DETAIL, r MARr 



f-URMATTER 
M-TARl.l 



J 4 

5-Apr-1984 13:19:09 
5~Apr-1984 13:16:08 



Ksbttl ' ^KFAU.T hARDWAI .■ P TABLE' 

♦ 

The default hardware P- Title contains default values of 

the v e-it-<Vv'ce pariiftt'ctr;;. The structure of this table 

Is ic*tnti.:al to the structure of the hardware P- Tables, 

and is us«*d as a "template" for building the P~ Tables, 



BGNHW 'OFPTBUt 

global 

HW_IP ALivS 

Hu_vr. f ;n":; : 

HM PR v.VFL 
HU.. UNIT ..NO 

ENDHW; 



SEQ 0048 
VAX-11 Bliss-16 V3-555 Page 

SPIDER $USERS : [ NEALE , AZTEC ] ZRCHB2 . Bi6 ; 5 C 3 ) 



word initial ( rfs ' 1-0*5 
worti initial (*o'l! x 4'). 
: w::\\} i n ' L i al v. 5 ) ( 

word initial (0)i 



), .'Define RC25 Controler IP reg 

SOefine RC25 interrupt vector adddi 
.'Define RC25 bus request level 
! Define RC2S unit no, to format 



rs 



ZRCHBi? 

REV B PATCH 



00 



1589 
1590 
1591 
159c 3 
1593 
1594 
1595 
1596 
159"/ 
1598 
1599 
1600 
1601 



l<4 



2RCH80 RC25 DISK FORMATTER 
SOFTWARE P-TABLE 

*sbttl 'SOFTWARE P -TABLE' 



5 -Apr -1984 :.5;19;09 
5-Apr-19ite 13s 16 j 08 



SEQ 004 9 
VAX-11 Blisy-16 V3-555 Page 

SPIDER$USERS;[NEALE.AZTEC]ZRCHB2.&16;5 (4) 



The softnare table contains various data used by the 
program as operational parameters, These parameters are 
set up at assembly time and may be varied by the operator 
at run time. 



BGNSU (SFPTBL)i 

global 

SW..UNATT j word initial (1) 

ENOiiW ; 



•Format in unattended refmt mode 



IRJHBtf? 


ZHCHBO RC25 DISK FORMATTER 


REV B PATCH 00 


PROTECTION TABLE. 


j 1602 


rfsbttl 'PROTECTION TABLE 


; 1603 


J *■ 


; 1604 


! This table is used by the runtime 


: 1605 


! services to protect the load media. 


; 1606 


i 


j 1607 


! 1st arg * Offset into P_Table for 


i 1608 


J 2r\4 arg » Offset into P„Table for 


i 1609 


! 3rd arg - Offset into P.Table for 


; 1610 


• .. 


; 1611 


BGNPROT (0, -1, 6) { 


; 1612 


ENDPROT} 



1.4 

5 -Apr -1984 
S -Apr -1964 



SEQ 0050 
13;19:09 VAX-11 Bliss-16 V3-555 Page 

13 s 16:08 SPIDER*USERS:[NEAl.E,AZTEC]ZRCHB2.B16;5"(5) 



csr address 
massbus address 
drive number 



ZRCHB2 

REV B PATCH 00 



1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1056 
1657 
1658 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



M4 

5-Apr-1984 13:19:09 
5-Apr-1984 13:16:08 



SEQ 0051 
VAX -11 Bliss- 16 V3 555 Page 

SPIDER$USERS:(NEALE.AZTEC]ZRCHB2,B16}5 (6) 



Ksbttl 



MODULE DECLARATIONS 



Within BLSMACREQ the psect names, pi it global and own, 
are redefined to be aaScode, This is done to force the 
tkb linker to link the header information starting at 
at absolute address 2000. Redefine these psect names 
back to their original names for house keeping purposes. 

Also change the attributes for the psect "global" so that 
global data will not be linked starting at absolute address 
2000. 



psect 

plit * $plit$( global), 
global = *glob$(nowri te, 
own * $own$; 



noexecute, global, concatenate) 



Structure 
module. 



structure 



declarations used within this 



RC25 register accessing structure. This 
structure allows RC25 register accessing 
to be transportable between the PDP-11 and 
VAX Diagnostic Supervisors. 

This also defines an access algorithm for 
VAX to allow field reference to MBA address 
space without generating machine checks 



RC25 [0. P. S. E] * 
begin 

local 

RC$S„REG; 

RC$S_REG * .(RC25 ♦ *upval+0)<0, rfbpval , 0>t 

RC$S_REG 

<P. S, E>| 



N4 



ZRCHB2 

REV B PATCH 00 



1659 

1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
16/7 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
169/ 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 

: /09 

1710 
1/11 
1712 
1713 
1/14 
1715 



ZRCHBO RC25 DISK FORMATTER 
GLOBAL DATA SECTION 

*sbttl 'GLOBAL DATA SECTION 1 



5-Apr-1984 13:19:09 
5-Apr-l984 13:16:08 



SEQ 0052 
VAX-11 Bltsg-16 V3-555 page 8 

SPIDERJUSERS : [ NEALE . AZTEC ]ZRCHB2 . B16 j 5 ( 7 ) 



The global data section contains data that are used 
in more than one test or module. 



global 



Communication area Declarations 



♦ HDR..SIZ, 2, word] 



COM^AREA : blockvector [REC_ALLOCATE f SND ALLOCATE 

HEAD_AREA : ref block [4, word] field (HDR_FIELD) , 

RECEIVE_RING : ref blockvector [REC ALLOCATE, 2, word] field (DSC FIELD), 

SEND.RING : ref blockvector [SND ..ALLOCATE , 2. word] field (DSC_FIELD) 

REC_ENVEL0PE : blockvector [REC_ALLOCATE , RB_S1ZE ♦ 

SND.ENVELOPE : blockvector [SND ALLOCATE, SB SIZE ♦ 

FCT^BUF : block [256, word], 

REC_BUF : block [RECB^SIZE, word] field CRECB _FIELD) , 

SND„BUF : vector [SNDB.SIZE, word], 

OUT$STD_BUF : blockvector [REC„ALL0CATE, 2. word] field (OUT $FIELD) , 

RET..ENSAD : ref block [RB^SIZE ♦ 2, word] field CENV FIELD)} 



2, 
2 



word] 
word] 



field (ENV FIELD), 

field CENV.FIELD), 



global bind 



Diagnostic supervisor printing ascii format strings. 



FMT1 

FMT2 

FMT3 

FMT4 

FMT5 

FMT6 

FMT7 

PID_FMT 

CRLF » 

XCRLF « 



upl i 
upl i 
upl i 
Upl i 
Upl i 
upli 

upli 

- upl i 
upl it ( 

upli t 



rfasc i 
*asc i 
tfasc i 
*asc i 
*asc i 
tfasc I 
*asc i 
t C*a 
*asc i 
Oasc 



*N*T' ), 

*N*N*AINITIALIZING 



•Prir.t one asc i i string pointer 
RC25 CONTROLLER ADDRESS :*S*06*A( )*N' ) 



ABORTED' ) 



rfNrf^LOGICAL UNIT *D2*A(D)/3*APHYS1CAL UNIT *D2*A(D )*S*AF0RMAT 
*N*AMICR0 CODES MOD 16 VERSION NUMBER -*S*02*A( )*N' ) , 

*N*ABRINGING ONLINE: LOGICAL UNIT *D2*A(D )*S*APHYSICAL UNIT *D2*A( D)»N' ) 
*N*A$FTLERR- NON-EXISTENT RC25 CONTROLLER ADDRESS *06»A( 0)*N' ) , 
KAFORMATTING PHYSICAL UNIT *D2#A( D )*N' ) , 

sci7.'#N*AF0RMATTER PROGRESSING: PID HI =*06*A(0)«iStfS*APID L0»*06*A( 0)' ) , 

z'*N* ), 

I z ' *N*N*N*N*N*NtfN*N' ) , 



Ring ba»>e address declaration 
RINGBASE - COM^AREA [REC„BASE], 



MSGADR = REC^BUF [MSG_TXT]; 

global 

M i seel laneous data declarations 

DA'! t-: TXT : vector (12. byte], 

F"L.;.HRD : bi tv ..tor I 16], 

NEX /"LAG : word, 

UV5A : word, 

NXT.. CRN : byte, 

RET .STATU!) : word initial ( Ho' 000000' > , 

LUN : wordi 

n lD_.SAVE ; vector [2, word], 



.'Operator data input storsgo 

! Global flag word 

!None\i stent RC25 registe i\a. 

•Overlay sect ' cm starting adr* 

J Strres next ..md ref number 

J Suves various return status codes 

J Stoics logical unit number being formatted 

! Saves proces indicator word 



7RCHBJ 


REV B PATCH 00 


; 1716 


; 1717 


i 1718 


; 1719 


i 1 7.?0 


w<n 


; 17 P.2 


i li\?3 


1 7c!4 


17^5 


; 1 ?2b 


; 17«?7 


; 1 7.78 


; 1 729 


; 1730 


: 1731 


; 173? 


; 1733 


J 1 734 


; 1735 


; 1736 


i 1737 


1758 


l 1739 


i 174J 


; 1741 


{ 174? 


; 1743 


: 1 744 


; 1745 


; 1746 


: 1747 


; 1748 


; 1749 


; 1750 


; 1751 


J 1 75? 


; W55 


; 1754 


; 1 755 


s 1 7'-6 


: 17b7 


; 1758 


; 1 759 


; 1760 


1761 


: 1 76? 


; W6 3 


; 1 764 


; 1765 


J 1766 


; ) 76 7 


J 1 768 


: 1 76'-* 


; 1 7 70 


; 1//1 


i W7£ 



ZRCHBO RC?5 DISK fORMATTER 
GLOBAL DATA SECTION 



fit. 



5 -Apr -1984 
5 -Apr -1934 



SEQ O053 
13il9t09 VAX-11 Bliss-16 V3 555 Page 9 

13: 16 1 08 SPIDfcRIUSERSi[NF.ALE.AZTEC]ZRCHB2.B16|5 (7) 



N5D_5L0T 
NRD SLOT 



word, 
word, 



Hardware P_Table storage declarations 

RC25.AD0R : ref RC?5 field USD_FTELD). 

VEC_ADDK : word, 

BR LEVEL t word, 

UNIT, NO ; word, 

PTBL PTR : ref vector (4. word], 



Dup Protocol data structure* 



Reserved field masK structure declaration 

RSVD_STHUCT ; vect< r {4, word] preset C 
[0] ■ %> , 07FF' , 
[ 1] - **'0000' , 
[?] • #*'0700' , 
[3] - «V07FF« ), 



Init Sequence Data..Structure declaration 



}Ne*t e«*id Descriptor slot 
I Next rMceivo Descriptor slot 



.•Controller register accttt structure 
! interrupt vector a'idress storaoe 
?Bu* request lavel storage 
flint t number to format storage 
J .Stores P., Tabls base addreos 



(Reserved 5A reg fields definitions 

!V?.0 Step one r»vd field 

IStep two rsvd field 

JStep three rsvd field 

.'Step four rsvd 6 ucode field 



ISD_STRUCT 
i 



blockvector [4, 2, word] field (ISO. FIELD) preset 



Step one read SA register field declaration 



[BLKO, WROO, ERR^BIT) - 0, 

[BLKO, WRDO, STP FIELD] • #b'0001', 

[BLKO, WROO, S1R_NV] - 1, 

[BLKO, WRDO, SIR 06] • 1, 

(BLKO, WRDO, S1R.DI] • 1, 

(BLKO. WRDO, SIR, 00] • 1, 

(BLKO, WRDO, S1R„MP] . 1, 

[BLKO, WRDO. S1R_RSV0]« *©' 77' , 
• 

! Step one write SA register field declaration 



[BLKO, 
[BLKO, 
[BLKO, 
[BLKO, 
(BLKO, 
[BLKO, 



WRD1, 

WRD1, 
WRD1, 
WRD1, 
WRD1, 
WRD1, 



ERR BIT ] 

S1W UP]- 



S1W 
S1W 
S1W 
S1W 



0, 

CRING1- 
RRING]- 
IE1- 0, 
VADR ) - 



1 



sng„s:/, 

RFC SI/, 
*o' 33' , 



Step two read SA register field declaration 



[BLKl 
[BLKl 
[ Bl K 1 

[BLKl 

[BLKl 
[Bl Kl 
[BLKl 



WRDO, 
WROO, 
WRDO, 
WRDO. 
WRDO, 
WRDO, 
WRDO, 



ERR, BIT) • 

STP FIELD] 
S?R PTYPJ- 
S?R BIT 7). 



*b*OOlO' 



,?R WR 







S?R^CRINt»] 
S2R.RR1NU1 



SND,5l/, 

REC.SU, 



!Error bit 

•All step bit fields 

! V?,0 Mask out host inter vtc set table adrs 

JMasW out ?2 bit addressing 

!Has^ enhanced diag implement at ion 

IhasW out port allows ooy stressing 

.'Mast out Port supported odr 

!V?.0 Reserved field 



! Error bl t 

SDIag wrap around 

! Number of Send- ring sicts ' pwr«* of ? 

.'Number of fteceiv* ring slots ' pwrs of 

Unit Seo ence interrupt request 

! Interrupt vector address 



•Error bi t 

!A11 step bit fields 

,'Port type number 

! Echoed If bit from step one write 

He hoed bit 14 from *tep one write 

ffchoed bits % 5 from step one write 

{Echoed bits i? from step *ne write 



C!^ 



/RCHtt, 


> 


REV B 


PATCH 00 




1775 




1774 




1775 




17 76 




1777 




l.va 




1779 




1780 




1781 




1 78? 




1765 




1784 




1795 




1786 




1 78 7 




1788 




1789 




1790 




1791 




179? 




1795 




1794 




1795 




1 ? r Tb 




179 7 




1798 




1799 




1800 




1801 




180? 




1805 




1804 




1805 




1806 




1807 




1808 




1809 




1810 




1811 



2RCHB0 HC?5 DISK FORMATTER 
GLOBAL DATA SECTION 



) 

5-Apr-l984 I3il4;09 VAM1 Bliss -16 V3-555 '^P^ 4 10 

5 Apr -1964 13: 16 j 06 SPIDt'RIUSERS : [NfcALE , AZTEC URCHB2 .816(5 C7) 



Step two write SA register field declaration 
[BLK1, WR01. S2W.LRBASE]- RINGBASE, 

NOTE; 

The adapter purge interrupt is loaded within 
the bgrtinit code doe to the inability to field 
select bits <1. 15, 0> from the ringbase adrs, 
[BLK1, WR01, S2U_PI1- 0, 

Step three read SA register field declaration 

[8LK2, WT.DO, ERR BIT) • 0, 

(BLK2* URDO, STP..FIELD] • «VO10O', 

[BLKP, WRDO. SSK.RSVD]- *o'7', 

[BLK2, WRDO, S3R.IE1- 0, 

[BLK2, WRDO, S3R..VADR1" *o'33', 

Stop three write SA register Field declaration 

[BLK2, UROl. S3W.PP]- 0, 
[BLK2, UROl, S3U.HRBASE]- 0, 

Step four read SA register field declaration 

[BLK3, WRDO, ERR. BIT] - 0, 

[BLK3, URDO, STP FIELD] - «V 1000' , 

rBLKS. WRDO, S4R RSVDl- *o'7' , 

TBLK3, WRDO. S4R.M00] - **' f* , 

[BLK3, WRDO, S4R_VER] • eWf', 

Step four write SA register field declaration 

BLK3, UROl. S4W_RSV0]- *o'S77', 

CLK3, UROl. S4U BURST)- 0, 

[BLK5, UROl, S4W LM' 0, 

[BLK3, WROX, S4W.G0)- 0)f JGo bit 



JRing baee lower address 



{Adapter purge Interrupt request 



! Error bi t 

•All step bit fields 

.'Reserved 

•Echoed IE bit from step on* write 

{Echoed VADR from step one write 



.'Purge L Poll test request 
♦Ring base high address 



•Error bi t 

•All step bit fields 

•Reserved 

{MasW it out 
'.Mask it out 



! Reserved 

{Max number loogwordS pen NPR \f*r 

JLast fai I request 



D!5 



ZRCHBJ 

REV B PATCH 00 



1812 
1813 

1814 
181S 

1816 
1817 

1818 
1819 

1H2G 
18«?1 

iop;< 

!8c?i 
1824 
182*5 
18P6 
1^2- 
IR20 

ie.?4 

IflJO 
1351 
1832 
1833 
1834 
1835 
1836 
1837 
?838 
1839 
1840 
1841 
1842 
1843 
1844 
W, 
1846 
184.* 
1848 



ZRCHBO RC25 DISK f-ORMATTER 
GLOBAL TEXT SECTION 



b Apr 
5-Apr 



1984 13 5 19;09 VAX-It Bltss-16 V3-55S fjE °p2« 5 11 

1984 13 s 16 j 08 SPIDER IUSERS ; [ NEALE . AZTEC 1ZRCHB2 . B16 j 5^8 ) 



Ksbttl 

f 



GLOBAL TEXT SECTION 



The global te\t section contains format statements, 
messages, and ASCII information that are used in 
all module , 



global btod 



! Self -detected fatal port/controller *srr 


PFE. STRUCT - uplit ( 




upl 


t (#asciz'*N*AIFTLERR 


upl 


t (*a»ciz' #N*A$FTLFRR 


upl 


t (*aaciz«*Ni<AiFTLERR 


upl 


t (*asciz *N#A$FfLERR 


upl 


t (*aaciz'*N*A*FTLERR 


upl 


t (*aaciz'#N*A$FTLERR 


upl 


\. <*aeciz'»>WA*FTLERR 


upl 


t (*asciz»*N*A$FTLERR 


upl 


t (*a«ci2'*N*A$FTLERR 


upl 


t (#aeciz'»N*A$FTLFRR 


upl 


t (*aec;z'*N#AIFTLERR 


upl 


t («asciz'#N*AIFTLERR 


upl 


t (^••ciz , *N*A$FTl.EWR 


upl 


t (•eeciz'rfNKAIFTLERR 


upl 


•> (#aaciz'#N*AIFTl F.FJR 


upl 


t (#asciz"^^AiHLERR 


upl 


t C#ftSciz'#N4AIFTLERR 


url 


t (»a*ciz'*Ni*AIFTLERR 


upl 


t («asciz'*N*AIFTLERR 


upl 


t (*asciz'*N*A*FTLERR 


upl 


t C#asclz'#N*AIFTLERR 


upl 


t (#asciz**N*A$FTLERR 


upl 


t (*asciz'*N*A$F "TLERR 



<BLF/PAGE> 



UNRECOGNIZABLE ERROR CODE' ), 
ENVELOPE/PACKET READ (PARITY OR TIMEOUT)' ). 
ENVELOPE/PACKET WRITF (PARITY OR TIMEOUT)'), 
CONTROLLER ROM AND RAM PARITY' ), 
CONTROLLER RAM PARITY' ), 
CONTROLLER ROM PARITY' ), 
RING READ CPARITY OR TIMEOUT)' ), 
RING WRITE (PARITY OR TIMEOUT)' ), 
INTERRUPT MASTER' ), 
HOST ACCESS TIMEOUT' ), 
CREDIT LIMIT EXCEEDED' >. 
BUS MASTER ERROR' ), 

DIAGNOSTIC CUNTROLLER FATAL ERROR*). 
INSTRUCTION LOOP TIMEOUT' ), 
INVALID CONNECTION IDENTIFIER' ), 
INTERRUPT WRITE' ) 

MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER' ), 
MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER'), 
CONTROLLER RAM ERROR (NON -PARI TY )' ), 
INIT SEQUENCE ERROR 1 ), 

HICH LEVEL PROTOCOL INCOMPATIBILITY ERROR'), 
PURGe./POLL HARDWARE FAILURE ' ). 

MAPPING REGISTER RFAD ERROR (PARITY OR TIMEOUT)') 
) : vector [?3], 



p 



7RCHBJ 

REV B PATCH 00 



18AQ 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
^860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 



ZRC'-fcO RC25 
GLOBAL. TEXT 



Oj.SK formatter 

SECTION 



: :.) 



5-Apr~1984 13il9;09 
5-Apr-1984 13;t6:08 



SEQ 0056 
VAX-11 Blisa-16 V3-555 Poo* 13 

SPIDER*USERSt[NEALE.AZTEC]ZRCHB2.B16|5 (9) 



rror masaao* structure 





EMSG.STR 


upi 


t (*asci 


upl 


t (tfaaci 


upl 


t (*asc? 


upl 


t (rfasci 


upl 


t (#asci 


upl 


f (#asc> 


upl 


t (*asc: 


upl 


t (rfasci 


upl 


t Crfasci 


upl 


t <*aaci 


upl 


t (*a.*c\ 


upl 


t (tfaaci 


upl 


t (a-aaci 


upl 


t (tfaaci 


upl 


t (tfauci 


upl 


t (a*aact 


upl 


t (tfaaci 


upl 


t (tfasci 


upl 


t (HaacI 


upl 


t (tfnsci 


upl 


t (tfasci 


c*l. 


t (*ascl 


upi 


t Ca-asci 


!<b 


L<Vptttfe> 



UCT - uplit ( 

z'*N#A*FTLERR- 

z'*N#A*FTLERR 

z'*N*A*FTLERR- 

z*N*A*FTLERR- 

z'*N*A*FTLERR- 

z j aNKA*FTLE^R- 

z'*N*AIFTLERR- 

z»*N*A$FTLERR 

z**N*A$FTLERR- 

z'#N*A$FTLERR- 

z'*N*A$FTLERR- 

z'*N*AIFTLERR 

z'^NrfAIFTLERR 

z'*N*A$FTLERR' 

z'*N*A*FTLERR 

z'*N*A*FTLERR 

z'*N*A$FTLERR 

z'*N*A$FTLERR 

z**N*A*FTLERR 

z'*N*A$FTLERR 

z'*N*A$FTLERR 

z'#N#A*FTLERR 

z'tfN*A$FTLERR 



RESPONSE STmTUS ERROR ;*S'), 

HOST/CONTROLLER OUT OF SF.Q'), 

REMOTE PROG NOT RUNNING' ), 

UNKNOWN RETURN STATUS CUDE'), 

COM AREA INIT ERROR' ), 

PORT/HOST SYNC ERROR' ), 

MESSAGE LENGTH ERROR'), 

UNKNOWN ENOCCDE PECEIVED'), 

ADAPTOR PURGE ERROR' ), 

UNKNOWN INTERRUPT' ), 

INIT SEQ STEP TIMED OUT'). 

INIT SEQ COMPARE ERROR'), 

UNEXPECTED ATTENTION ENO MESSAGE RECEIVED'). 

UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED'). 

UNEXPECTED SERIOUS EXCEPTION ENO MESSAGE RECEIVED'), 

INVALID COMMAND ENO MESSAGE RECEIVED'). 

UNKNOWN hfcSSASE TYPE RECEIVED'), 

OUTSTANDING COMMAND BUFFER FULL'), 

OUT STANDING COMMAND BUFFER OUT OF 

UNKNOWN MESSAGE NUMBER RFCEIVED*), 

FILE READ ERROR* ). 

PORT/CONTROLLER TIMEOUT ERROR), 

ILLEGAL FCT FILE LENGTH')) J vector [25] 



SYNC ERROR' ), 



ZRCHBJ 

REV B PATCH 00 



1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 



ZRCH60 RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



F5 

5 Apr- 1984 \3;19;09 
5-Apr-1984 13;16:08 



SEQ 0057 
VAX -11 Bllss-16 V3-555 Pace 13 

SPIDERJUSERS: [ NEALE. AZTEC )ZRCHB2.B16j5 CIO; 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 

Jpl 

upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
'Jpl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



! Self -detactad fatal port/controller errors 



RESTRUCTURE - upl It ( 



(tfasc 
(*aac 
(*aac 
(*asc 
(*aac 

(#B9C 

(rfaac 

(Kasc 
(¥asc 
(*asc 
(*aac 
(rfaac 
(*aac 
(*asc 
C*aec 
(*aac 
(#aac 
(*aac 
(*aac 
(rfaac 
(tfaac 
(rfasc 
C*aac 
(#aac 
(*aac 
(rfaac 
(tfaac 
(rfaac 
(#aac 
( *aac 
(tfaac 
(*aac 
(Haac 
C»aac 
C*aac 
(tfasc 
Crfaac 
(*asc 
(ifasc 



?<blf/pao<t> 



z'#N*A$FTLERR 
z'*N*A$FTLERR- 
z'#N*AIFTLERR- 
z'*N#AiFTLERR- 
z'*Ni<AiFTLERR- 
z'¥N#A$FTLERR- 
z'*N*AtFTLERR- 
z'*N*A*FTLERR- 
z'KNrfAIFTLERR 
z'*N*A4FTLERR 
z'#N*A$FTLERR 
z'#Ni<A*FTLERR 
z'*N*A$FTLERR 
z'#Ni<A$FTLERR 
z'*N*A$FTLERR 
z'*N#A*FTLERR 
z»*N*A$FTLERR 
z'*N*A*FTLERR 
z'*N*A*FTLERR 
z'*N*AIFTLERR 
z'*N*A$FTLERR 
z'^NrfAIFTLERR 
z'*N#A*FTLERR 
z'#N*A$FTLERR 
z'*N*A$FTLERR 
z'*N*AIFTLERR 
z'*N*A$FTLERR 
z'*N#AiFTLERR 
z'*N*A*FTLERR 
z'*N*AIFTLERR 
z'*N*A*FTLERR 
z«*N#A$FTLERR 
z'*N*A*FTLERR 
z'*N*A*FTLERR 
z'*N*A$FTLERR 
z'*N#AIFTLERR 
z'*N*A$FTLERR 
z'*N*A*FTLERR 
Z'*N*A*FTLERP 
) 



(PIP SET)' ), 
CERR SET)' ), 



VAX READ/WHITE ERROR ON INTERRUPT'), 
INCONSISTENCY AT U.BFIL-), 
INCONSISTENCY AT U.BMTY'). 
INCONSISTENCY AT U.ALOC), 
INCONSISTENCY AT SERVO ENTRY 
INCONSISTENCY AT SERVO ENTRY 
INCONSISTENCY AT U.SEND'), 
INCONSISTENCY AT U.RECV), 
INCONSISTENCY AT U.ATTN'), 
INCONSISTENCY AT U.ONLN' ), 
ILLEGAL D REQUEST (U.GORQ)*), 
FENCE-POST ERROR AT PROTAB'), 
BAO PACKET DEQUEUED AT U.DONE'), 
UNEXPLAINED D-PROC SUSPENSION CU..TDSV), 
DUP PACKET D-Q FAILED (XFC 34/3S)'), 
INCONSISTENCY AT U.HTST'), 
INCONSISTENCY AT U.SEKO'), 
INCONSISTENCY AT U.CKSV), 
D.OPCD FOUND ILLEGAL OPCODE* ), 
D.CSF FOUND ILLEGAL OPCODE'). 
UNKNOWN BAD CtflVE STATUS At D.DSTS'), 
ILLEGAL XFC EXECUTED BY DH«), 
D PICKED UP A ZERO SCB.DB'), 
INCONSISTENCY AT D IDLE LOOP' ), 
DM WORD COUNT ERROR ON HOST DMA/SEND/RECV ). 
UNKNOWN DISPLAY FAULT CODE AT D.DrLT'), 
DRIVE NOT FAULTING IN P.OFLN STATE'), 
U POWER UP DIAGNOSTICS FAILED*). 
D POWER L*> DIAGNOSTICS FAILED'), 
ADAPTER CARD FAILURE' ), 
EC.TMR TIMED OUT' ), 

U.SENO'U.RECV RING READ INCONSISTENCY'), 
UNKNOWN WAITRV REASON AT D.RVCT). 
D.ARCS DID NOT FINO CLOSEST UNDONE ZONE' ), 
U.SEEK FOUND SEEK TO ILLEGAL TRACK*), 
U.HTST INT.T DIAu DMA WRITE FAILED*), 
U.HTSr INir DIAL DMA COMPARE FAILED' ). 
U.SYDR FOUND Ss.T'FR SET AND SS.SPN NOT SET*), 
MASTER 0RIVLS ACLO ASSERTED' > 
; vegtor [391, 



REV B PATCH 00 



1922 
1925 
19^s 
1925 
1926 
1927 
1928 
1929 
1950 
1931 
1952 
1955 
1934 



ZRCH60 RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



G5 

5-Apr-l984 13:19;09 
5-Apr-19B4 13:16:09 



SEQ 0058 
VAX '.1 Biles- 16 V3-S55 Page 14 

SPID£R*US£RS : I NEALE , AZTEC 1ZRCHB2 . B16 ; 5 C 11 J 



• Dup return status cooes 



upl i 
upl i 
upl j 
upl i 

unl t 

upii 

upl i 



SDUf\ STRUCT - upl it ( 

(Kasciz'KA SUCCESSFUL*^ ), 
Oasciz'rfAINVALID COMMANDS'), 
(*asciz'*ANO REGION AVAILABLEKN' ) 
(Unsci/'tfANO REGION SUITABLEtfN' ) , 
C*asciz'*APROGRAM NOT KNOUUrfN 1 ), 
(*ascix'*ALOAD FAILUREKN' ), 
(*asciz'*ASTANDALONE*N' ) 



) 



vector [7], 



J<blf/page> 



7RCHBJ 

REV B PATCH 00 



1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
194 3 
1944 
1945 
1946 
194 7 
1948 
1949 
1950 
1951 
1952 
1953 



ZRCHBO RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



5 



5-Apr~1984 13:19:09 
5-Apr-1984 13j16;08 



SF.U 0059 
VAX-11 Biiss-16 V3 555 Poo* 15 

SPIDER $USERSj[NEALE. AZTEC )ZRCHB2.B16j5" (12) 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



! MSC? return status codes 



SMSCP 



STRUCT - upli»- ( 
t C*»sciz'*A5UCCESS*N' ), 
t (rfa»ciz'*AINVALID COMMANWN' ). 
t (Kasciz'HACOMMAND ABORTEDKN' ) , 
t (Hasciz'rfAUNIT-OFFLINErfN' ), 
t C*asc;z , rfAUNIT-AVAJl.ABLE*N , ). 
t (*asciz'*AMEDIA FORMAT F.RROR^N'), 
t (*asciz'*AURITE PROTECTED*N' ) , 
t (Kasciz'rfACOtlPARE ERRORUN 1 ), 
t (*asciz'*ADATA ERRORrfN'), 
t (*asciz**AHOST RUrFER ACCESS ERRORS'), 
t C^asciz'UMCONTROLLER ERRORS'), 
t (*asciz'*ADRIVE ERRORS'), 

t (*asciz**AMESSAGE P'ROM AN INTERNAL DIAGNOSTICS* 1 
) : vector (13), 



;<BLF/PAGE> 



ZRCH82 

REV B PATCH 



00 



1954 
1955 
1956 
1957 
1958 
3959 
1960 
1961 
196-2 
1963 
1964 
1965 
1966 
196 7 
1968 
1969 
1970 

19a 

19/2 
19/3 
1974 
1975 

1976 
1977 
1978 
1979 
1960 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 



ZRCH80 RC25 DISK f-ORMATTRR 
GLOBAL TEXT SECTION 



In i t code error and informat ionml meosagcs 



15 

5 -Apr -1984 13:19:09 
5-Apr-1984 13:16:08 



SEQ 0060 
VAX-11 BlJss-16 V3-555 Page 16 

SPIDER*USERS:[NEALE.AZTEC]ZRCHBa.B16j5 (13) 



end 






DATMSG - uplit (*aac i z' ENTER DATE <MM-DD-YYYY> '), 

NO^AD0_L^ITS - uplit (Kate iz' *N*AN0 ADDITIONAL UNITS TO FORMAT - ABORTING 

PWR.MSG ■ uplit (*asclz'*Ni<A*FTI_ERR- INIT CODE RE-ENTERED DUE TO PWR FAIL 

ABO.MSG - uplit (#asciz'i<N*A$FTLERR- ABORTING HOST AND REMOTE PROGRAMS'), 

TO,MANY_ UNITS - uplit (tfasc iz' *N*A$FTLERR- ILLEGAL NUMBER OF UNITS SELECTED'), 

GOOD_NUM_UNITS - uplit (*a«C iz' *N*A$FTLERR- LIMIT OF SIXTEEN UNITS PER FORMATING SESSION' ), 

B00T_FAILURE - uplit (Kasc iz' #N*A$FTLERR~ RC25 CONTROLLER INITIALIZATION ERROR'). 

PROTO.VIOLATION - uplit (*aac i z' *N*A$FTLERR- PROTOCOL VIOLATION ERROR'), 

PORT_INIT_ERR ■ uplit (*aac iz' tfNUAIFTLERR- COMMUNICATION AREA INIT ERROR'), 

ACriVE_OUP..SERVER • uplit (*asc i *' *N*A*FTLERR - DUP SERVER ACTIVE AFTER INITIALIZING' ), 

INACTIVE_DUP„SERVER - uplit C*asc \z ' *N#AIFTLERR- DUP SERVER INACTIVE AFTER EX_SUP_PR0G COMMAND'), 

! Local load media DM module file name.ext 



■DM_FN$EXT ' 
FCT_REQ_.MSG 



UPLIT (*ASCIZ'AZFMTR.SAV ), 
■ uplit C*asctz'ENTER FCT FILE NAME TO RESTORE (FILENAME , EXT ) 



! Hardware parameter coding questions 

HU_Q1..IP - uplit (*asciz'RC25 IP REGISTER ADDRESS"'), 
HU_Q2_VECT0R ■ uplit (*asciz'Rl25 INTERRUPT VECTOR ADDRESS'), 
HW_Q3_BR - uplit (rfasc iz* RC25 BUS REQUEST LEVEL'), 
HU.UW.UNIT » uplit (rfasciz'UNIT NUMBER TO BRING ONLINE'), 

Software parameter coding questions 

SU_Q1_UNATT - uplit (*asciz r FORMAT IN UNATTENDED REFORMAT MODE'), 

SU Q2 NOTICE • uplit (tfasc i z ' #N*A********************* NOTICE ********************* 
SW„Q3_0PER « uplit C*asciz'#N*A OPERATOR MUST BE PRESENT IN ATTENDED MODE * ), 
SW^Q4_UNATT * uplit Crfasc iz' *N*A RUNNING IN UN-ATTENDED REFORMAT MODE'); 



)i 



eludom 



OOOOOO 
000000 
000003 
000006 
000007 
000010 
000010 
000011 
00001c? 
000014 
000016 
000020 

00002;' 

000024 



103 
103 
000 
000 

102 

060 
OOOOOOG 
002260 
OOOOOOG 
OOOOOOG 
000140' 
000154* 



132 
110 



122 
040 





.TITLE 


ZRCHB2 ZRCHBO RC25 DISK FORMATTER 




.IDENT 


/REV B / 




.PSECT 


AAtCOOE, RO 


LINAME 


:. ASCII 


/CZR/ 




.ASCII 


/CH / 




.BYTE 







.BYTE 





l.SREV: 








.ASCII 


/8/ 




.ASCII 


/O/ 


LIUNIT 


: . WORD 


T$PTHV 


Li TIME 


: .WORD 


2260 


LIHPCP 


; .WORD 


L$HARD 


1 ISPCP 


: . WORD 


I ISOFT 


LIHPTP 


: . WORD 


LIHW 


L$SPTP 


i.WORD 


L*SW 



ZRCHB2 

REV 6 PATCH 00 



ZPCHBO RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



J 15 

5-Apr-1984 13:19:09 
5-Apr-1984 13:16:08 



5EQ 0061 
VAX-11 Bliss-16 V3-555 Pag* 17 

SPIDER $USERS:[NEALE, AZTEC ]ZRCHB2.B16j5 Cl3j 



000026 
000050 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000050 
000051 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
0000/0 
0000/2 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 
000122 
000124 

000126 
000.130 
000132 
000134 
000136 

000140 

000142 

000144 

000146 

000150 
000152 

000154 

000 VA.-. 
000160 
000162 



OOOOOOG 

000000 

000000 

000000 

000000 

000124* 

000000 

000000 

000000 

003 
003 
000000 
000000 
000000 
OOOOOOG 
OOOOOOG 
000000 
000000 
OOOOOOG 
OOOOOOG 
000000 
OOOOOOG 
104035 
000126' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000160' 
000000 
000000 
000000 
00000 1 
OOOOOOG 



OOOOOOC 
1/2150 
000154 
000005 

000000 

OOOOOOC 

000001 



000000 
177777 



LtLADP: 


:.W0RD 


LILAST 


L$STA«5 .WORD 





L*C0:: .WORD 





LIDTYP: 


:.WORD 





LIAPT: : 


.WORD 





LIDTP:: 


.WORD 


LIDISPATCH 


LIPRIO: 


: .WORD 





LIENVI: 


: .WORD 





LIEXP1: 


t.WORD 





LIMREV: 






.BYTE 


3 


.BYTE 


3 


LIEF:: .WORD 





.WORD 





LiSPC: : 


.WORD 





LIDEVP; 


: .WORD 


LIDVTYP 


LIREPP: 


: .WORD 


LIRPT 


LJEXP4: 


: , WORD 





LIEXP5: 


: . WORD 





LIAUT: : 


.WORD 


LiAU 


LIDUT:; 


.WORD 


LIDU 


LILUN: : 


.WORD 





LIDESP: 


: .WORD 


LIOESC 


LILOAO: 


:.WORD 


-73/43 


L$ETP: : 


.WORD 


LIERRTBL 


LIICP: : 


.WORD 


LIINIT 


LICCP: : 


.WORD 


LICLEAN 


L$ACP: : 


.WORD 


L.IAUTO 


LIPRT: : 


.WORD 


LIPROT 


LATEST: 


: .WORD 





L$DLY: : 


.WORD 





LfHIHE: 


: .WORD 





DIPCNT: 


: .WORD 


1 


L IDISPATCH: : 




.WORD 


(1 


ERRTYP; 


: .3L.KW 


1 


ERRNBR: 


: .BLKW 


1 


ERRMSG: 


: .BLKW 


1 


EKMBLK: 


: .BLKW 


1 


LtHWl.F.* 


1: : 




.WORD 


<<LiNDHW-L*HWLEN>/2> 


HW. IP.ADRS: ; 




. UORj 


■56*0 


HW. VECTOR: : 




. WORD 


1M 


HW. BR. LEVEL : : 




.WORD 


5 


HW.UNIT.NU: : 




.WORD 





t INDHW: : .Bl.KW 


1 


I I5WLFN: : 




.WORD 


<<L*NDtiW-L*SWLfcN>/2> 


SW.UNATT: : 




.WORD 


1 


I INfViU: : .BLKW 


1 


LIPRQT;:.W0RD 







.WORD 


- X 



7RCHB2 

REV B PATCH 00 

000164 000006 



ZRCHBO RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



,WORD 



l<5 



5 -Apr -1484 
5 -Apr -1984 



SF.Q 0062 
13:19:09 VAX-11 BUss-16 V3--555 Pooe 16 

13:16:08 SPIDER$USERSj[NEALE.AZTEC*j2RCHB2.B16|5 C13) 



000000 
000000 
000003 
000006 
000011 
000014 
00001/ 
000022 
00002b 
000030 
000033 
000036 
00004 1 
000044 
00004 7 
000052 
000055 
000060 
000063 
000066 
0000/1 

0000 74 
000076 
000101 
000104 
000107 
000112 
000115 
000120 
000125 
000126 
000131 
000134 
00013 7 
000142 
000145 
000150 
000153 
000156 
000161 
000164 
00016/ 

0001 I? 
000175 
000200 
000203 
000204 
00020 / 
000212 
000215 
000220 
00022 3 
000226 



045 

124 

045 

116 

111 

124 

114 

111 

(540 

062 

103 

124 

114 

122 

104 

105 

072 

045 

045 

117 

116 

045 

101 

107 

101 

125 

124 

104 

101 

051 

045 

110 

111 

114 

116 

040 

062 

050 

04 5 

101 

122 

124 

102 

124 

000 

04 5 

101 

103 

04 

104 

040 

104 



116 
000 
116 
045 
116 
111 
111 
116 
122 
065 
117 
122 
114 
040 
104 
123 
045 
117 
101 
051 
000 
116 
114 
111 
114 
116 
040 
062 
050 
045 
101 
131 
103 
040 
111 
045 
045 
104 
123 
106 
115 
040 
11/ 
105 

116 
115 
122 
103 
105 
115 
040 



045 

000 
045 
101 
111 
101 
132 
107 
103 
040 
116 
117 
105 
101 
122 
123 
123 
066 
050 
045 

045 
\ 17 
10 3 
040 
111 
045 
045 
104 
123 
120 
123 
101 
125 
124 
104 
101 
051 
045 
117 
101 
101 
122 
104 

045 
111 
11/ 
11/ 
123 
11/ 
061 



P. AAA: 
P.AAB: 



P . AAC : 



P . AAQ : 



.PSECT 
.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
■ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
, ViCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



$PLIT$, RO 

/*N*/ 

/T/<00><00> 

/#N*/ 

/NrfA/ 

/INI/ 

/TIA/ 

/LIZ/ 

ZING/ 

/ RC/ 

/25 / 

/CON/ 

/TRO/ 

/LLE/ 

/R A/ 

/DDR/ 

/ESS/ 

/:*S/ 

/#06/ 

/*A(/ 

/O)*/ 

/N/<00> 

/*N*/ 

/ALO/ 

/GIC/ 

/AL / 

/UNI/ 

/T */ 

/D2*/ 

/A(D/ 

/)*S/ 

/*AP/ 

/HYS/ 

/ICA/ 

A U/ 

/NIT/ 

/ *D/ 

/2#A/ 

/(D)/ 

/*s*/ 

/AFO/ 

/RMA/ 
/T A/ 
/BOR/ 
/TED/ 
<00> 
/*N*/ 
/AMI/ 
/CRO/ 
/ CO/ 
/DES/ 
/ MO/ 
/D 1/ 



D 



GBL 



1.5 



ZRCHB2 




ZRCHBO 


RC25 01! 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


000231 


066 


040 


126 


000234 


105 


122 


123 


000237 


111 


117 


116 


000242 


040 


116 


125 


000245 


115 


102 


105 


000250 


122 


040 


075 


000253 


045 


123 


045 


O0C256 


117 


062 


045 


000261 


101 


050 


117 


000264 


051 


045 


116 


00026 7 


000 






0002 70 


045 


116 


045 


0002 73 


101 


102 


122 


0002 76 


111 


116 


107 


000301 


111 


116 


107 


000304 


040 


117 


116 


000307 


114 


111 


116 


000312 


105 


072 


040 


000315 


114 


117 


107 


000320 


111 


103 


101 


000323 


114 


040 


125 


000326 


116 


ill 


124 


000331 


040 


045 


104 


000334 


062 


045 


101 


000337 


050 


104 


051 


000342 


045 


123 


045 


0005<*5 


101 


120 


110 


000350 


131 


123 


111 


000353 


103 


101 


114 


000356 


040 


125 


116 


000361 


111 


124 


040 


000364 


045 


104 


062 


000367 


045 


101 


050 


000372 


104 


051 


045 


000375 


116 


000 


000 


000400 


045 


116 


045 


000403 


101 


044 


106 


000406 


124 


114 


105 


0004 1 1 


122 


122 


055 


0004 14 


040 


116 


117 


0004 1 7 


116 


055 


105 


00042.' 


130 


111 


123 


000425 


124 


105 


116 


0004 30 


124 


040 


122 


0004 33 


103 


062 


065 


0004 36 


040 


103 


11/ 


000441 


116 


124 


122 


000444 


117 


114 


114 


00044/ 


105 


122 


040 


000452 


101 


104 


104 


0004 55 


122 


105 


123 


000460 


123 


040 


045 


000463 


117 


066 


045 


000466 


101 


050 


117 


0004/1 


051 


045 


116 


0004 74 


000 


000 




0004 76 


045 


101 


106 



P . AAE : 



P . AAF : 



P . AAU : 





5-Apr-1984 


13:19:09 




5-Apr-19tt4 


13;16:08 


ASCII 


/C v/ 




ASCII 


/FRS/ 




ASCII 


/ION/ 




ASCII 


/ NU/ 




ASCII 


/MBE/ 




ASCII 


/R -/ 




ASCII 


/*S*/ 




ASCII 


/02*/ 




ASCII 


/A(0/ 




ASCII 


/)*N/ 




ASCII 


<00> 




ASCII 


/*N*/ 




ASCII 


/A8R/ 




ASCII 


ZING/ 




ASCII 


/ING/ 




ASCII 


/ ON/ 




ASCII 


/LIN/ 




ASCII 


/£; / 




ASCII 


/LOG/ 




ASCII 


/ICA/ 




ASCII 


/L U/ 




ASCII 


/NIT/ 




ASCII 


/ *D/ 




ASCII 


/2*A/ 




ASCII 


/(D)/ 




ASCII 


/*s*/ 




ASCII 


/APH/ 




ASCII 


/YSI/ 




ASCII 


/CAL/ 




ASCII 


/ UN/ 




ASCII 


/IT / 




ASCII 


/*D2/ 




ASCII 


/*A(/ 




ASCII 


/D)*/ 




ASCII 


/N/<00><00> 




ASCII 


/*N#/ 




ASCII 


/A$FV 




ASCII 


/Tl \J 




ASCII 


/RR-/ 




ASCII 


/ NO/ 




ASCII 


/N-E/ 




ASCII 


/xis/ 




ASCII 


/TEN/ 




ASCII 


/T R/ 




ASCII 


/C25/ 




ASCII 


/ CO/ 




ASCII 


/NTR/ 




ASCII 


/OLL/ 




ASCII 


/fcR / 




ASCII 


/ADD/ 




ASCII 


/RfcS/ 




ASCII 


/S */ 




ASCII 


/06*/ 




ASCII 


/ACO/ 




ASCII 


/)*N/ 




ASCII 


<00>*0Q* 




ASCII 


/*AF/ 





VAX-U Bliss-16 V3 555 

SPIDER $U5ER S ; [ NEALE . AZTEC ) ZRCHB2 . B 16 ; 5 



SEQ 0063 
Page 



19 
(13) 



ZRCHG2 




ZRCHflO 


RC25 DISK fORMATTER 




5 -i 


REV B PATCH 00 


GLOBAL 


TEXT SECTION 






5-< 


C00501 


117 


122 


115 




.ASCII 


/ORM/ 


000504 


101 


124 


124 




.ASCII 


/ATT/ 


00050V 


111 


116 


107 




.ASCII 


/ING/ 


000512 


040 


120 


110 




.ASCII 


/ PH/ 


000515 


131 


123 


111 




.ASCII 


/YSI/ 


000520 


103 


101 


114 




.ASCII 


/CAL/ 


000523 


040 


125 


116 




.ASCII 


/ UN/ 


000526 


111 


3 24 


040 




.ASCII 


/IT / 


000531 


045 


104 


062 




.ASCII 


/*D2/ 


000534 


045 


101 


050 




.ASCII 


/*A(/ 


00053/ 


104 


051 


045 




.ASCII 


/D)*/ 


000542 


116 


000 






.ASCII 


/N/<00> 


000544 


045 


116 


045 


P.AAH: 


.ASCII 


/*n*/ 


00054 7 


101 


106 


117 




.ASCII 


/AFO/ 


000552 


122 


115 


101 




.ASCII 


/RMA/ 


000555 


124 


124 


105 




.ASCII 


/TTE/ 


000560 


122 


040 


120 




.ASCII 


/R P/ 


000563 


122 


11/ 


107 




.ASCII 


/ROG/ 


000566 


122 


105 


123 




.ASCII 


/RES/ 


000571 


123 


111 


116 




.ASCII 


/SIN/ 


000574 


107 


072 


040 




.ASCII 


/G: / 


00057 7 


040 


120 


111 




.ASCII 


/ PI/ 


000602 


104 


040 


110 




.ASCII 


/D H/ 


000605 


111 


075 


045 




.ASCII 


/I-*/ 


000610 


117 


066 


045 




.ASCII 


/06¥/ 


000613 


101 


050 


117 




.ASCII 


/A(0/ 


000616 


051 


045 


123 




.ASCII 


/)*s/ 


000621 


045 


123 


045 




.ASCII 


/*S#/ 


000624 


101 


120 


111 




.AS r *I 


/API/ 


000627 


104 


040 


114 




.ASCII 


/O L/ 


000632 


117 


075 


045 




.ASCII 


/0«rf/ 


000635 


117 


066 


045 




.ASCII 


/06*/ 


000640 


101 


050 


117 




.ASCII 


/A(0/ 


00064 3 


051 


000 


000 




.ASCII 


/)/<00><00> 


000646 


045 


116 


000 


\AAI: 


.ASCII 


/*N/<OQ> 


000651 


000 








.ASCII 


<00> 


000652 


04 5 


116 


045 


P.AAJ: 


.ASCII 


/*N*/ 


000655 


116 


045 


116 




.ASCII 


/N*N/ 


000660 


045 


116 


045 




.ASCII 


/rfhM/ 


000663 


116 


045 


116 




.ASCII 


/N*N/ 


000666 


045 


116 


045 




.ASCII 


/*N#/ 


000671 


116 


000 


000 




.ASCII 


/N/<00><00> 


000674 


045 


116 


045 


P . AAL : 


.ASCII 


/*u*/ 


0006 7 7 


101 


044 


106 




.ASCII 


/a$k/ 


000/02 


124 


114 


105 




.ASCII 


/TLE/ 


000 705 


122 


122 


055 




.ASCII 


/RR / 


000710 


040 


125 


116 




.ASCII 


/ UN/ 


000713 


122 


105 


103 




.ASCII 


/REC/ 


000716 


117 


107 


lib 




.ASCII 


/OGN/ 


000721 


111 


132 


101 




.ASCII 


/IZA/ 


000724 


102 


114 


105 




.ASCII 


/OLE/ 


00072 7 


040 


105 


122 




.ASCII 


/ ER/ 


000/32 


122 


117 


122 




.ASCII 


/ROR/ 


000/35 


040 


103 


117 




.ASCII 


/ CO/ 


000/40 


i '. - » 


105 


000 




.ASCII 


/DE/<00> 


00074 5 


000 








.ASCII 


<00> 


000744 


045 


116 


045 


P.AAlij 


.ASCII 


/*N*/ 



MS 

5-Apr-1984 13:19:09 
5-Apr-1984 13il6:08 



SEfr 0064 
VAX-11 Bliss-16 V3-555 Poo* 20 

SPIDER$USERS: [NEALE. AZTEC ]ZRCHB2.B16;5^ 13) 



N5 



ZRCHB2 




ZRCHBO 


RC25 Di: 


REV B PATCH 00 


GLOBAL. 


TEXT SE( 


00074/ 


101 


044 


106 


0007b? 


124 


114 


105 


000755 


122 


122 


055 


000760 


040 


105 


116 


000765 


126 


105 


114 


000/66 


117 


120 


105 


0007/1 


057 


120 


101 


000774 


103 


113 


105 


0007 7 7 


124 


040 


122 


C01002 


105 


101 


104 


001005 


040 


050 


120 


001010 


101 


122 


1 1. ' 


001015 


124 


131 


<)4i- 


001016 


117 


122 


040 


001021 


124 


111 


115 


001024 


105 


117 


125 


00102/ 


124 


051 


000 


001032 


045 


116 


04 5 


001035 


101 


044 


106 


001040 


124 


114 


105 


001013 


122 


122 


055 


001046 


040 


105 


116 


001051 


126 


105 


114 


001054 


117 


120 


105 


001057 


05/ 


120 


101 


001062 


103 


113 


105 


001065 


124 


040 


12 7 


001070 


i<!<? 


111 


124 


001073 


105 


040 


050 


00 10,' 6 


120 


101 


122 


001101 


111 


124 


131 


001104 


i)40 


11/ 


122 


00110/ 


()4 


124 


111 


001112 


115 


105 


117 


001U5 


125 


124 


051 


001120 


000 


000 




001122 


045 


116 


045 


001125 


101 


044 


106 


001130 


124 


114 


105 


001133 


122 


122 


055 


001136 


040 


103 


117 


001141 


116 


124 


122 


001144 


117 


114 


114 


00114 7 


105 


122 


0^0 


001152 


122 


11/ 


115 


001155 


040 


101 


lib 


001160 


104 


040 


122 


001163 


101 


115 


040 


001166 


120 


101 


122 


0011/1 


111 


124 


131 


001174 


000 


000 




0011/6 


045 


116 


0<J5 


001201 


101 


04 * 


106 


001204 


124 


114 


105 


001207 


122 


122 


055 


001212 


04 


103 


11/ 


001215 


116 


124 


122 



P.AAN 



P.AAO 



P.AAP 





5 -Apr- 1984 


13:19:09 




5-Apr-l9ti4 


13j16j08 


ASCII 


/IMF/ 




ASCII 


/TIE/ 




ASCII 


/PA-/ 




ASCII 


/ EN/ 




ASCII 


.'VEL/ 




ASCII 


/OPE/ 




ASCI J 


<57>/PA/ 




ASCII 


/CKE/ 




ASCII 


/T R/ 




ASCII 


/EAD/ 




ASCII 


/ (P/ 




ASCII 


/ART/ 




ASCII 


/TY / 




ASCII 


/CR / 




ASCII 


/TIM/ 




ASCII 


/EOU/ 




ASCII 


/T)/<00> 




ASCII 


/*N*/ 




ASCII 


/A*r/ 




ASCII 


/TLE/ 




ASCII 


/RR-/ 




ASCII 


/ EN/ 




ASCII 


/VEL/ 




ASCII 


/OPE/ 




ASCII 


<5/>/PA/ 




ASCII 


/CKE/ 




ASCII 


/T W/ 




ASCII 


/RIT/ 




ASCII 


/E (/ 




ASCII 


/PAR/ 




ASCII 


/ITY/ 




\5CII 


/ OR/ 




ASCII 


/ 11/ 




ASCII 


/HEO/ 




ASCII 


/UT ')/ 




ASCII 


< 00 -• < 00 > 




ASCII 


/*N*/ 




ASCII 


/A*r/ 




ASCII 


/TLE/ 




ASCII 


/RR-/ 




ASCII 


/ CO/ 




ASCII 


/NTR/ 




ASCII 


/OLL / 




ASCIJ 


/ER / 




ASCII 


/ROM/ 




ASCII 


/ AN/ 




ASCII 


/O R/ 




ASCII 


/AM / 




ASCII 


/PAR/ 




ASCII 


/ITY/ 




ASCII 


<00><00> 




o.SCIl 


/*N*/ 




ASCII 


/AU / 




ASCII 


/TLE/ 




ASCII 


/RR / 




ASCII 


/ CO/ 




ASCII 


/NTR/ 





SEQ 0065 
VAX-11 BlJss-16 V3-555 Pan* 21 

SPIDER$USERS|[NEALE.AZTEC)ZRCHB2.B16j5 (13) 















\)h 




ZRCHBJ 




ZRCHBO 


RC25 DISK FORMATTER 




5 -Apr -1964 


13 i 19 t 09 


REV B PATCH 00 


GLOBAL 


TEXT SECTION 






5 -Apr -1584 


I3il6i08 


CO 1220 


117 


114 


114 




.ASCII 


/QLL/ 




001223 


105 


122 


040 




.ASCII 


/F.R / 




001226 


122 


101 


115 




.ASCII 


/RAM/ 




001231 


040 


120 


101 




.ASCII 


/ PA/ 




00 1? 34 


122 


111 


124 




.ASCII 


/RIT/ 




001237 


131 


000 


000 




.ASCII 


/Y/<00><00> 




00124c 1 


045 


116 


045 


P.AAQi 


.ASCII 


/#N«/ 




001245 


101 


044 


106 




.ASCII 


/A*F/ 




001250 


124 


114 


105 




.ASCII 


/TIE/ 




001255 


122 


122 


055 




.ASCII 


/RR-/ 




001256 


040 


103 


117 




.ASCII 


/ CO/ 




001261 


116 


124 


122 




.ASCII 


/NTR/ 




001264 


117 


114 


114 




.ASCII 


/OLL/ 




00126? 


105 


122 


040 




.ASCII 


/ER / 




0012/2 


122 


117 


115 




.ASCII 


/ROM/ 




001275 


040 


120 


101 




.ASCII 


/ PA/ 




001300 


122 


111 


124 




.ASCII 


/RIT/ 




001303 


131 


000 


000 




.ASCII 


/ Y / < 00 >< 00 > 




00130c> 


045 


116 


045 


P.AAR: 


.ASCII 


/#N#/ 




001311 


101 


044 


106 




.ASCII 


/Air/ 




001314 


124 


114 


105 




.ASCII 


/TLE/ 




001317 


122 


122 


05 r 




.ASCII 


/RR / 




001322 


040 


122 


111 




.ASCII 


/ RI/ 




001325 


116 


10/ 


040 




.ASCII 


/NG / 




001330 


122 


105 


101 




.ASCII 


/REA/ 




001335 


104 


040 


050 




.ASCII 


/o (/ 




001336 


120 


101 


122 




.ASCII 


/PAR/ 




001341 


111 


124 


131 




.ASCII 


/IT Y/ 




001344 


040 


117 


122 




.ASCII 


/ OR/ 




001347 


040 


124 


111 




.ASCII 


/ TI/ 




001352 


115 


105 


117 




.ASCII 


/MEO/ 




001355 


125 


124 


051 




.ASCII 


/UT )/ 




001360 


OOO 


000 






.ASCII 


<00»<00> 




001362 


045 


116 


045 


P.AAS: 


.ASCII 


/#N*/ 




001365 


101 


044 


106 




.ASCII 


/A$F/ 




001370 


124 


114 


105 




.ASCII 


/TLE/ 




001373 


122 


122 


055 




.ASCII 


/RR-/ 




0013 76 


040 


122 


111 




.ASCII 


/ RI/ 




001401 


116 


107 


040 




.ASCII 


/NG / 




001404 


127 


122 


111 




.ASCII 


/WRI/ 




001407 


124 


105 


040 




.HbClI 


/TE / 




001412 


050 


120 


101 




.ASCII 


/IPA/ 




001415 


122 


111 


124 




.ASCII 


/RIT/ 




001420 


131 


040 


117 




.ASCII 


/Y 0/ 




001423 


122 


040 


124 




.ASCII 


/R T/ 




001426 


111 


115 


105 




.ASCII 


/IME/ 




001431 


1W 


125 


124 




.ASCII 


/OUT/ 




001434 


051 


000 






.ASCII 


/)/<00» 




001436 


045 


116 


045 


P.AATj 


.ASCII 


/#N*/ 




001441 


101 


044 


106 




.ASCII 


/Atf / 




001444 


124 


114 


105 




.ASCII 


/TLf/ 




00144? 


122 


122 


055 




.ASCII 


/RR / 




001452 


040 


111 


116 




.ASCII 


/ IN/ 




001455 


124 


105 


122 




.ASCII 


/TER/ 




001460 


122 


125 


120 




.ASCII 


/RUP/ 




001465 


12^ 


040 


115 




.ASCII 


/T M/ 




001466 


101 


123 


124 




.ASCII 


/AST/ 





SEiJ 0066 
VAX-11 BliM-16 V3 555 Phq« 2Z 

SPIDfcRIUSERS s [ NEAL E , AZTEC 1ZRCHB2 .B 16 j 5 ( 13 ') 



C6 



7RCHU2 

REV P PATCH 

001471 
0014 74 
0014 7 7 
00 ISO,? 

00 I SOS 

001510 
001515 
001516 



001527 
001532 
001535 
001536 
001541 
001544 
00154 7 
001552 
001555 
001560 
001565 
001566 
001571 
001574 
0015?/ 
00160? 
001605 
001610 
001615 
001616 
001621 
001o?4 
001627 
00163? 
001635 
001640 
001643 
001646 
001651 
001654 
001657 
001662 
001665 
001670 
001673 
001676 
001701 
001 /04 
001707 
001712 

ooi /i5 

001720 
001/25 
001/26 

001751 
001734 
001737 



00 

105 
045 
101 
124 
122 
040 
123 
101 
105 
040 
115 
125 
000 
045 
101 
124 
122 
0*0 
105 
124 
111 
124 
130 
105 
104 
045 
101 
124 
122 
040 
123 
101 
105 
105 
117 
045 
101 
124 
122 
040 
101 
117 
111 
103 
124 
114 
122 
101 
114 

122 
122 
045 
101 
124 
122 
040 
123 



IRCHBO RC25 DISK FORMATTER 
GLOBAL. TEXT SECTION 



122 
116 
044 
114 
12? 
110 
124 
103 
123 
124 
105 
124 

116 
044 
114 
122 
103 
104 
040 
115 
040 
105 
104 
000 
116 
044 
114 
122 
102 
040 
123 
122 
122 
12? 
116 
044 
114 
122 
104 
107 
123 
103 
11/ 
122 
114 
040 
124 
0^0 
122 
0< 
116 
044 
114 
122 
HI 
124 



000 
045 
106 
105 
055 
117 
040 
103 
123 

111 
117 

000 

045 
106 
105 
055 
122 
111 
114 

111 
105 
105 
105 
000 
045 
106 
105 
055 
125 
115 
124 
040 
122 
000 
045 
106 
105 
055 
111 
116 
124 
040 
lib 
117 
105 
106 
101 
105 
U7 

ooo 

045 

106 
105 
055 
lib 
122 



P.AAU: 



P. AAV: 



P.AAW; 



P.AAXj 



P.AAYj 





5 -Apr -1984 13:19;09 




5~Apr-1984 13? 16:08 


.ASCII 


/ER/<00> 


.ASCII 


/#N*/ 


.ASCII 


/AIF/ 


.ASCII 


/TLE/ 


.ASCII 


/RR / 


.ASCII 


/ HO/ 


.ASCII 


/ST / 


.ASCII 


/ACC/ 


.ASCII 


/ESS/ 


.ASCII 


/ TI/ 


.ASCII 


/MEO/ 


.ASCII 


/UT/<00> 


.ASCII 


<00> 


.ASCII 


/#N#/ 


.ASCII 


/AIF/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ CR/ 


.ASCII 


/EDI/ 


.ASCII 


/T L/ 


.ASCII 


/IMI/ 


.ASCII 


/T E/ 


.ASCII 


/XCE/ 


.ASCII 


/EOE/ 


.ASCII 


/D/<00><00> 


.ASCII 


/#N#/ 


.ASCII 


/Air/ 


.ASCII 


/TLE/ 


.ASCII 


/RR/ 


.ASCII 


/ BU/ 


.ASCII 


/S M/ 


.ASCII 


/AST/ 


.ASCII 


/ER / 


.ASCII 


/ERR/ 


.ASCII 


/OR/<00> 


.ASCII 


/#N*/ 


.ASCII 


/Air/ 


.ASCII 


/TIF/ 


.ASCII 


/RP / 


.ASCII 


/ 01/ 


.ASCII 


/AGN/ 


.ASCII 


/OST/ 


.ASCII 


/IC / 


.ASCII 


/CON'' 


.ASCII 


/TRO/ 


.ASCII 


/LLfc/ 


.ASCII 


/R F ■• 


.ASCII 


/ATA/ 


.ASCII 


/L fc/ 


.hSCII 


/RRO/ 


.ASCII 


/R/<00><0Q> 


.ASCII 


/*Ntf/ 


.ASCII 


/AIF / 


.ASCII 


/TLE/ 


.ASCII 


/RR/ 


.ASCII 


/ IN/ 


.ASCII 


/STR/ 



SEQ 006/ 
VAXli Bliss 16 V5 555 Page 23 

SPIDER!USERSs[NEAL&.A^TEC)ZRCMB2,B16i5 (13; 



D6 



7RCHB2 




zrchbo 


RC25 DISK FORMATTER 




5 Apr -1984 


13{1<*{09 


REV B PATCH 00 


GLOBAL 


TEXT SECTION 






5~Apr-19ti4 


13jl6|()8 


001742 


125 


103 


124 




.ASCII 


/UCT/ 




001745 


111 


117 


116 




.ASCII 


/ION/ 




001750 


040 


114 


117 




.ASCII 


/ LO/ 




001753 


117 


120 


040 




.ASCII 


/OP / 




001756 


124 


111 


115 




.ASCII 


/TIM/ 




001761 


105 


117 


125 




.ASCII 


/EUU/ 




001764 


124 


000 






.AbCII 


/T/<00> 




001766 


045 


116 


045 


P.AAZ; 


.ASCII 


/*N*/ 




001771 


101 


044 


106 




.ASCII 


/ASF/ 




001774 


124 


114 


105 




.ASCII 


/TLE/ 




001777 


122 


122 


055 




.ASCII 


/FIR-/ 




002002 


040 


111 


116 




.ASCII 


/ IN/ 




002005 


126 


101 


114 




.ASCII 


/VAL/ 




002010 


111 


104 


040 




.ASCII 


/ID / 




00201? 


103 


117 


116 




.ASCII 


/CON/ 




002016 


116 


105 


103 




.ASCII 


/NEC/ 




002021 


124 


111 


117 




.ASCII 


/TIO/ 




002024 


116 


040 


111 




.ASCII 


/N 1/ 




002027 


104 


105 


116 




.ASCII 


/OEN/ 




002032 


124 


111 


106 




.ASCII 


/TIF/ 




002035 


111 


105 


122 




.ASCII 


/IER/ 




002040 


000 


000 






..'.sen 


<00*<00> 




002042 


045 


116 


045 


P. ABA: 


.ASCII 


/#N#/ 




002045 


101 


044 


106 




.ASCII 


/Air/ 




002050 


124 


114 


105 




.ASCII 


/TLE/ 




002053 


122 


122 


055 




.ASCII 


/RR~/ 




002056 


040 


111 


116 




.ASCII 


/ IN/ 




002061 


124 


105 


122 




.ASCII 


/TER/ 




002064 


122 


125 


120 




.ASCII 


/RUP/ 




00206/ 


124 


040 


127 




.ASCII 


/T W/ 




002072 


122 


111 


124 




.ASCII 


/RIT/ 




002075 


105 


000 


000 




.ASCII 


/E/<00><00> 




002100 


045 


116 


045 


P . ABB i 


.ASCII 


/*N#/ 




002103 


101 


044 


106 




.ASCII 


/AIF / 




002106 


124 


114 


105 




.ASCII 


/TLE/ 




002111 


122 


122 


055 




.ASCII 


/RR-/ 




002114 


040 


115 


101 




.ASCII 


/ MA/ 




002117 


111 


116 


124 




.ASCII 


/INT/ 




002122 


105 


116 


101 




.ASCII 


/EN A/ 




002125 


116 


103 


105 




.ASCII 


/NCE/ 




002130 


040 


122 


105 




.ASCII 


/ RE/ 




002133 


101 


104 


057 




.ASCII 


/AD/<57> 




002136 


127 


122 


111 




.ASCII 


/WRI/ 




002141 


124 


105 


040 




.ASCII 


/TE / 




002144 


111 


116 


126 




.ASCII 


/INV/ 




002147 


101 


114 


111 




.ASCII 


/ALI/ 




002152 


104 


040 


122 




.ASCII 


/D R/ 




002155 


105 


107 


111 




.ASCII 


/FIJI/ 




002160 


117 


116 


040 




.ASCII 


/ON / 




0O?lh3 


111 


104 


105 




.ASCII 


/IOr/ 




002166 


116 


124 


111 




.ASCII 


/NTt/ 




0021/1 


106 


111 


105 




.ASCII 


/ru / 




002174 


122 


000 






.ASCII 


/R/<00> 




002176 


045 


116 


045 


P . ABC : 


.ASCII 


/*N*/ 




002201 


101 


044 


106 




.ASCII 


/A|F/ 




002204 


124 


114 


105 




.ASCII 


/Tl F/ 




002207 


122 


122 


055 




.ASCII 


/RR / 





SEQ 0068 
VAX -11 Hliss-16 V3 555 Pao* 24 

SPIDER$USERSi[NEALE.AZTEC]ZRCMB2.Bl6t5 (13) 



t-16 



zrchb2 




7RCH60 


RC25 DISK H3RMATTFR 




5 Apr -1984 


13:19:09 


REV B PATCH 00 


GLOBAL 


TEXT SECTION 






5-Apr-1904 


13:16:08 


002212 


040 


115 


101 




.ASCII 


/ MA/ 




002215 


111 


116 


124 




.ASCII 


/INT/ 




002220 


105 


116 


101 




.ASCII 


/ENA/ 




002223 


116 


103 


105 




.ASCII 


/NCE/ 




002226 


040 


127 


122 




.ASCII 


/ WR/ 




002231 


111 


124 


105 




.ASCII 


/ITE/ 




002234 


040 


114 


117 




.ASCII 


/ LO/ 




00223/ 


101 


104 


040 




.ASCII 


/AD / 




002242 


124 


117 


040 




.ASCII 


/TO / 




0022.45 


116 


117 


116 




.ASCII 


/NON/ 




002250 


055 


114 


117 




.ASCII 


/ LO/ 




002253 


101 


104 


101 




.ASCII 


/ADA/ 




002256 


102 


114 


105 




.ASCII 


/BLE/ 




002261 


040 


103 


117 




.ASCII 


/ CO/ 




002264 


116 


124 


122 




.ASCII 


/NTR/ 




002267 


117 


114 


114 




.ASCII 


/OIL/ 




002272 


105 


122 


000 




.ASCII 


/ER/<00> 




002275 


000 








.ASCII 


<00> 




002276 


045 


116 


045 


P.ABD: 


.ASCII 


/UN*/ 




002301 


101 


044 


106 




.ASCII 


/AIF/ 




002304 


124 


114 


105 




.ASCII 


/TLE/ 




002307 


122 


122 


055 




.ASCII 


/RR / 




002312 


040 


103 


117 




.ASCII 


/ CO/ 




002315 


116 


124 


122 




.ASCII 


/NTR/ 




002320 


117 


114 


114 




.ASCII 


/OLL/ 




002323 


105 


122 


040 




.ASCII 


/ER / 




002326 


122 


101 


115 




.ASCII 


/RAM/ 




002331 


040 


105 


122 




.ASCII 


/ ER/ 




002334 


122 


117 


122 




.ASCII 


/ROR/ 




002337 


040 


050 


116 




.ASCII 


/ (N/ 




002342 


117 


116 


055 




.ASCII 


/ON-/ 




002345 


120 


101 


122 




.ASCII 


/PAR/ 




002350 


111 


124 


131 




.ASCII 


/ITY/ 




002353 


051 


000 


000 




.ASCII 


/)/<00><00> 




002356 


045 


116 


045 


P.ABE: 


.ASCII 


/#N*/ 




002361 


101 


044 


106 




.ASCII 


/AIF/ 




002364 


124 


114 


105 




.ASCII 


/TLE/ 




00236 7 


122 


122 


055 




.ASCII 


/RR / 




002372 


040 


111 


116 




.ASCII 


/ IN/ 




002375 


111 


124 


040 




.ASCII 


/IT / 




002400 


123 


105 


121 




.ASCII 


/SEQ/ 




002403 


125 


105 


116 




.ASCII 


/UEN/ 




002406 


103 


105 


040 




.ASCII 


/CE / 




002411 


105 


122 


122 




.ASCII 


/ERR/ 




002414 


117 


122 


000 




.ASCII 


/OR/<00> 




002417 


000 








.ASCII 


<00> 




002420 


045 


116 


045 


P.ABF: 


.ASCII 


/*N*/ 




002423 


101 


044 


106 




.ASCII 


/A IF/ 




002426 


124 


114 


105 




.ASCII 


/TLE/ 




0024 31 


122 


122 


055 




.ASCII 


/RR-/ 




0024 34 


040 


110 


111 




.ASCII 


/ HI/ 




0024 3 7 


107 


110 


040 




.ASCII 


/GH / 




002442 


114 


105 


126 




.ASCII 


/LEV/ 




002445 


105 


114 


040 




.ASCII 


/EL / 




002450 


120 


122 


117 




.ASCII 


/PRO/ 




002* j 3 


124 


117 


103 




.ASCII 


/TOC/ 




002456 


117 


114 


040 




.ASCII 


/OL / 





SF.Q 0069 
VAX -11 Bl 199-16 V3-555 Page 25 

SPIDER$USERS:[NEALE.AZTEC]ZRCHB2.816;5 (13) 



ZRCHB2 




ZRCHBO 


RC25 or 


REV B PATCH 00 


GLOBAL 


TEXT Sfci 


00,2461 


111 


116 


103 


002464 


117 


115 


120 


00246 7 


101 


124 


111 


0024 72 


102 


111 


1U 


002-175 


111 


124 


131 


002500 


040 


105 


122 


002503 


122 


117 


122 


002506 


000 


000 




002510 


04 5 


116 


045 


002513 


101 


044 


106 


002516 


124 


114 


105 


002521 


122 


122 


055 


002524 


040 


120 


125 


002527 


122 


107 


105 


002532 


057 


120 


117 


002535 


114 


114 


040 


002540 


110 


101 


122 


002543 


104 


1?7 


101 


002546 


122 


105 


040 


002551 


106 


101 


111 


002554 


114 


125 


122 


002557 


105 


040 


000 


002562 


045 


116 


045 


002565 


101 


044 


106 


002570 


124 


114 


105 


002573 


122 


122 


055 


002576 


040 


115 


101 


002601 


120 


120 


111 


002604 


116 


107 


040 


002607 


122 


105 


107 


002612 


111 


123 


124 


0026.15 


105 


122 


040 


002620 


122 


105 


101 


002623 


104 


040 


105 


002626 


122 


122 


117 


002631 


122 


040 


050 


002634 


120 


101 


122 


002637 


111 


124 


131 


002642 


040 


117 


122 


002645 


040 


124 


ill 


002650 


115 


105 


11/ 


002653 


125 


124 


051 


002656 


000 


OCO 




002660 


0006 74 ' 






002662 


000/44' 






002664 


001032' 






002666 


001122' 






0026 70 


001176' 






0026 72 


001242' 






0026 74 


001306' 






0026 76 


001362' 






002700 


001436' 






002/02 


0014 74' 






002/04 


001536' 






0027C 


001602' 






002710 


001b40' 






002/12 


001720' 







F6 

5-Apr-1964 13:19j09 
5-Apr-1984 13:16;08 



SEQ 0070 
VAX-11 BIjss-16 V3-555 Pog« 26 

SPIDERIUSERS: [NEALE, AZTEC ]ZRCHB2.B16s5 (13) 



P.ABGt 



P.ABH: 



P.AAK: 



.A-CII 


/INC/ 


.ASCII 


/OMP/ 


.ASCII 


/ATI/ 


.ASCII 


/BIL/ 


.ASCII 


/ITY/ 


.ASCII 


/ Eft/ 


.ASCII 


/ROR/ 


.ASCII 


<00><00> 


.ASCII 


/#N*/ 


.ASCII 


/Alf/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ PU/ 


.ASCII 


/RGE/ 


.ASCII 


<57>/PO/ 


.ASCII 


/LL / 


.ASCII 


/HAR/ 


.ASCII 


/DWA/ 


.ASCII 


/RE / 


.ASCII 


/FAI/ 


.ASCII 


/LUR/ 


.ASCII 


/E /<00> 


.ASCII 


/*NW/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR / 


.ASCII 


/ MA/ 


.ASCII 


/PPI/ 


.ASCII 


/NG / 


.ASCII 


/REG/ 


.ASCII 


/IST/ 


.ASCII 


/ER / 


.ASCII 


/REA/ 


.ASCII 


/D E/ 


.ASCII 


/PRO/ 


.ASCII 


/R (/ 


.ASCII 


/PAR/ 


.ASCII 


/IU7 


.ASCII 


/ OR/ 


.ASCII 


/ TI/ 


.ASCII 


/MEO/ 


.ASCII 


/UT)/ 


.ASCII 


*00><00> 


.WORD 


P.AAL 


.WORD 


P.AAfi 


.WORD 


P.AAN 


.WORD 


P.AAO 


.WORD 


P.AAP 


.WORD 


P.AAQ 


.UORD 


P.AAR 


.WORD 


P.AAS 


.WORD 


P.AAT 


.WORD 


P.AAU 


.WORD 


P. AAV 


.WORD 


P.AAW 


.WORD 


P . AAX 


.WORD 


P. AAV 



7RCHB2 




2RCHB0 


RC25 DI< 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


002714 


001766* 






002/16 


002042' 






002 720 


002100' 






002722 


002176' 






002724 


002276* 






002726 


002356* 






002730 


002420' 






002752 


002510' 






002734 


002562' 






002736 


045 


116 


045 


002741 


101 


044 


106 


002744 


124 


114 


105 


00274 7 


122 


122 


055 


002 752 


040 


122 


105 


002755 


123 


120 


117 


002760 


116 


123 


105 


002763 


040 


123 


124 


002766 


101 


124 


125 


002771 


123 


040 


105 


002774 


122 


122 


117 


002777 


122 


072 


045 


003002 


123 


000 




003004 


045 


116 


045 


003007 


101 


044 


106 


003012 


124 


114 


105 


0030 IS 


122 


122 


055 


003020 


040 


110 


117 


003023 


123 


124 


057 


003026 


103 


117 


116 


003031 


124 


122 


117 


003034 


114 


114 


105 


003037 


122 


040 


117 


00304 c 1 


125 


124 


040 


003045 


117 


106 


040 


003050 


123 


105 


121 


003053 


000 






003054 


045 


116 


045 


003057 


101 


044 


106 


003062 


124 


114 


105 


003065 


122 


122 


055 


0030/0 


040 


122 


105 


0030/3 


115 


117 


124 


0030/6 


105 


040 


120 


003101 


122 


117 


107 


003104 


040 


116 


117 


00310/ 


124 


040 


122 


00311? 


125 


116 


116 


003115 


Hi 


116 


107 


003120 


000 


000 




005122 


045 


116 


04 5 


003125 


1C1 


044 


106 


003130 


124 


114 


105 


003133 


122 


122 


055 


003136 


040 


125 


116 


003141 


113 


116 


11/ 


003144 


12/ 


116 


040 


003147 


122 


105 


124 



P.ABJ: 



P . ABK : 



P.ABL 



P. ABM 



G6 

5-Apr-1954 13:19:09 
5~Apr-19tt4 13:16:08 



SEQ 0071 
VAX-11 Bliss 16 V3-555 Paa« 27 

SPIDERJUSERSi [NEALE, AZTEC 3ZRC"B2.B16;5^13; 



.WORD 


P.AAZ 


• WORD 


P. ABA 


.WORD 


P. ABB 


.WORD 


P. ABC 


.WORD 


P ABO 


.WORD 


P.ABE 


.WORD 


P.ABF 


.WORD 


P.ABG 


.WORD 


P.ABH 


.ASCII 


/4\H/ 


.ASCII 


/A*F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR - / 


.ASCII 


/ RE/ 


.ASCII 


/SPO/ 


.ASCII 


/NSEV 


.ASCII 


/ ST/ 


.ASCII 


/ATU/ 


.ASCII 


/S E/ 


.ASCII 


/RRO/ 


.ASCII 


/R:#/ 


.ASCII 


/S/<00> 


.ASCII 


/*N*/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR / 


.ASCII 


/ HO/ 


.ASCII 


/ST/<57> 


.ASCII 


/CON/ 


.ASCII 


/TRO/ 


.ASCII 


/LIE/ 


.ASCII 


/R 0/ 


.ASCII 


/UT / 


.ASCII 


/or / 


.ASCII 


/SEQ/ 


.ASCII 


<00> 


.ASCII 


/*H*/ 


.ASCII 


/Aff / 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ RE/ 


.ASCII 


/MOT/ 


.ASCII 


/E P/ 


.ASCII 


/ROG/ 


.ASCII 


/ NO/ 


■ASCII 


/T R/ 


.ASCII 


/UNN/ 


.ASCII 


ZING/ 


.ASCII 


< 00 >< 00 > 


.ASCII 


/*N*/ 


.ASCII 


/AH- / 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ UN/ 


.ASCII 


/KNO/ 


.ASCII 


/WN / 


.ASCII 


/RET/ 



ZRCHB2 

REV B PATCH 

003 I5i? 
003155 
005160 
004163 
003166 
003171 
003172 
003175 
003200 
003203 
003206 
003211 
003214 
003217 
003222 
003225 
003230 
003233 
003234 
003237 
003242 
003245 
003250 
003253 
003256 
003261 
003264 
003267 
0032 72 
003275 
003276 
003301 
003304 
003507 
003312 
003315 
003320 
003323 
003326 
003331 
003334 

00333 7 
003340 

00334 3 
003346 
003351 
003354 
00335/ 
003 362 
003365 
003370 

00' ;/3 

003376 

003401 
003404 
003406 
003411 



00 

125 

040 

101 

123 

117 

000 

04 5 

101 

124 

122 

040 

115 

122 

040 

111 

105 

117 

000 

045 

101 

124 

122 

040 

122 

110 

124 

131 

040 

122 

000 

045 

101 

124 

122 

040 

123 

107 

114 

10/ 

040 

122 

000 

045 

101 

124 

122 

040 

113 

127 

105 

105 

105 

105 

111 

104 

045 

101 



ZRCHBO 
GLOBAL 

122 
123 
124 
040 
104 

116 
044 

11* 
122 
103 
040 
105 
111 
124 
122 
122 

116 
044 

114 
122 
120 
124 
117 
040 
116 
105 
117 

116 
044 
114 
122 

115 
123 
105 
105 
124 
105 
117 

116 
044 
114 
122 
125 
116 
116 
116 
117 
040 
103 
126 
000 
116 
044 



RC25 
TEXT 



DISK f ORMATTER 
SECTION 

116 
124 
125 
103 

105 



H6 

5 Apr-1984 
5-Apr-l9tt4 



SEQ 0072 
13:19;09 VAX-11 Bliss-16 V3 555 Pao* 2ft 

13 $16:08 SPIDER$USERSitNEALE.AZTEC]2RCHB2,B16|5 (13) 



045 
106 
105 
055 
117 
101 
101 
116 
040 
122 
000 

045 

106 
105 
055 
117 
05/ 
123 
123 
103 
122 
122 

045 
106 

105 
055 
105 
101 
040 
116 
110 
122 
122 

045 
106 

105 
055 
116 
117 
040 
104 
104 
122 
105 
105 

045 
106 



P.ABN: 



P.ABO: 



P.ABP: 



P.ABQ: 



P.ABRs 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



/URN/ 

/ ST/ 

/ATU/ 

/S C/ 

/ODE/ 

<00> 

/#N»/ 

/AIF/ 

/TLE/ 

/RR-/ 

/ CO/ 

/M A/ 

/REA/ 

/ IN/ 

/IT / 

/ERR/ 

/0R/-'00> 

<00> 

/rfNrf/ 

/A$F/ 

/TLE/ 

/RR-/ 

/ PO/ 

/RT/<57> 

/HOS/ 

/T S/ 

/YNC/ 

/ ER/ 

/ROR/ 

<00> 

/#N#/ 

/AIF / 

/TLE/ 

/RR-/ 

/ ME/ 

/SSA/ 

/tit. / 

/LEN/ 

/GTH/ 

/ ER/ 

/ROR/ 

<00> 

/*N*/ 

/A$F"/ 

/TIE/ 
/RR / 
/ UN/ 

/KNO/ 

/WN / 

/END/ 

/COD/ 

/E R/ 

/ECE/ 

/IVE 

/D' <00> 

/*N*/ 

/A*F/ 



zrch62 




2RCH60 


RC25 or 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


003414 


124 


114 


105 


003417 


122 


122 


055 


00342c? 


040 


101 


104 


003425 


101 


120 


124 


003430 


117 


122 


040 


003433 


120 


125 


122 


0034 36 


107 


105 


040 


003441 


105 


122 


122 


003444 


117 


122 


000 


00344 7 


000 






003450 


045 


116 


045 


003453 


101 


044 


106 


003456 


124 


114 


105 


003461 


122 


122 


055 


003464 


040 


125 


116 


003467 


113 


116 


117 


0034 72 


127 


116 


040 


0034 75 


111 


U6 


124 


003500 


105 


122 


122 


003503 


125 


120 


124 


003506 


000 


000 




003510 


045 


116 


045 


003513 


101 


044 


106 


003516 


124 


114 


105 


003521 


122 


122 


055 


003524 


040 


111 


116 


003527 


111 


124 


040 


003532 


123 


105 


121 


003535 


040 


123 


124 


003540 


105 


120 


040 


00354 3 


124 


111 


115 


003546 


105 


104 


040 


003551 


117 


125 


124 


003554 


000 


OOO 




003556 


04 5 


116 


045 


003561 


101 


044 


106 


003564 


124 


114 


105 


003567 


122 


122 


055 


0035 72 


040 


111 


116 


003575 


111 


124 


040 


003600 


123 


105 


121 


003603 


040 


103 


117 


003606 


115 


120 


101 


003611 


122 


105 


040 


003614 


105 


122 


122 


003617 


iW 


122 


000 


003622 


045 


116 


04 r 


003625 


101 


044 


106 


003630 


124 


114 


105 


003633 


122 


122 


055 


003636 


040 


125 


116 


003641 


105 


130 


120 


005644 


105 


103 


124 


00364 7 


105 


104 


040 


003652 


101 


124 


124 


00 3*, 5 5 


105 


116 


124 


003660 


111 


117 


116 



P.ABSs 



P.ABT: 



P.ABU: 



P.ABV 



16 

5-Apr-1984 13:19j09 

5 -Apr 1964 13;16iOd 



SF.Q 0073 
VAX-11 Bltss-16 V3 555 Page 29 

SPIDcR *U5t£RS ; C NF.ALE . AZTEC )ZRCHBZ . B 16 ; 5 C 13 j 



ASCII 


/TLE/ 


ASCII 


/RR-/ 


ASCII 


/ AD/ 


ASCII 


/APT/ 


ASCII 


/CR / 


ASCII 


/PUR/ 


ASCII 


/GE / 


ASCII 


/ERR/ 


ASCII 


/OR/<00> 


ASCII 


<00> 


ASCII 


/*N*/ 


ASCII 


/A$f'/ 


ASCII 


/TLE/ 


ASCII 


/RR-/ 


ASCII 


/ UN/ 


ASCII 


/KNO/ 


ASCII 


/UN / 


ASCII 


/INT/ 


ASCII 


/ERR/ 


ASCII 


/UPT/ 


ASCII 


<00><00> 


ASCII 


/*N*/ 


ASCII 


/Air/ 


ASCII 


/TLF./ 


ASCII 


/RR-/ 


ASCII 


/ IN/ 


ASCII 


/IT / 


ASCII 


/SEQ/ 


ASCII 


/ ST/ 


ASCII 


/EP / 


ASCII 


/TIM/ 


ASCII 


/ED / 


ASCII 


/OUT/ 


ASCII 


<00><00> 


ASCII 


/4H*/ 


ASCII 


/IMF/ 


ASCII 


/TLE/ 


ASCII 


/RR / 


ASCII 


/ IN/ 


ASCII 


/IT / 


ASCII 


/SEQ/ 


ASCII 


/ CO/ 


ASCII 


/MPA/ 


ASCII 


/RE / 


ASCII 


/ERR/ 


ASCIi 


/OR/<00> 


ASCII 


/#N*/ 


ASCII 


/A$F / 


ASCII 


/TLE/ 


ASCII 


/RR-/ 


ASCII 


/ UN/ 


ASCII 


/LXP/ 


ASCII 


/ECT/ 


ASCII 


/ED / 


ASCII 


/ATT/ 


ASCII 


/ENT/ 


ASCII 


/ION/ 



J6 



J> 



ZRCHB2 




2RCH60 


RC25 DI< 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


003663 


040 


105 


116 


003666 


104 


040 


115 


0036 71 


105 


123 


123 


003674 


101 


107 


105 


003677 


040 


122 


105 


003 70c? 


103 


105 


111 


003 /OS 


126 


105 


104 


003710 


000 


000 




003712 


045 


116 


045 


003715 


101 


044 


106 


003730 


124 


114 


1C5 


0037^3 


122 


122 


055 


003 726 


040 


125 


116 


003731 


105 


130 


120 


003734 


105 


103 


124 


003737 


105 


104 


040 


003742 


103 


117 


115 


003745 


115 


101 


116 


003750 


104 


040 


117 


003753 


120 


103 


117 


003756 


104 


105 


040 


003761 


111 


116 


040 


003764 


105 


116 


104 


003767 


040 


115 


105 


003772 


123 


123 


101 


003775 


10 7 


105 


040 


004000 


122 


105 


103 


004003 


105 


111 


126 


004006 


105 


104 


000 


004011 


000 






004012 


045 


116 


045 


004015 


101 


044 


106 


000020 


124 


114 


105 


004023 


122 


122 


055 


004026 


040 


125 


116 


004031 


105 


130 


120 


004034 


105 


103 


124 


004037 


105 


104 


040 


004042 


123 


105 


122 


004045 


111 


117 


125 


004050 


123 


040 


105 


004053 


130 


103 


105 


004 056 


120 


124 


111 


004061 


117 


116 


040 


004064 


105 


116 


104 


00406 7 


04 


115 


105 


0040 72 


123 


123 


101 


004075 


30/ 


105 


040 


004 100 


122 


105 


103 


004 103 


105 


in 


12o 


0041 Of > 


105 


104 


000 


004 1 1 1 


000 






004112 


04 5 


116 


045 


004115 


101 


044 


106 


004120 


i;y- 


114 


105 


0041.2 1 


W'2 


122 


055 


004126 


040 


111 


116 



P . ABW : 



P.ABX? 



P.ABY 







5-Apr-1984 13;19;09 






5-Apr-l9ti4 13:16:06 


.ASCII 


/ EN/ 




.ASCII 


/D M/ 




.ASCII 


/ESS/ 




.ASCII 


/AGE/ 




.ASCII 


/ RE/ 




.ASCII 


/CEI/ 




.ASCII 


/VED/ 




.ASCII 


<00><00> 




.ASCII 


/*NM/ 




.ASCII 


/A$F/ 




.ASCII 


/TLE/ 




.ASCII 


/RR- / 




.ASCII 


/ UN/ 




.ASCII 


/EXP/ 




.ASCII 


/ECT/ 




.ASCII 


/ED / 




.ASCII 


/COM/ 




.ASCII 


/MAN/ 




.ASCII 


/D 0/ 




.ASCII 


/PCO/ 




.ASCII 


/DE / 




.ASCII 


/IN / 




.ASCII 


/END/ 




.ASCII 


/ ME/ 




.ASCII 


/SSA/ 




.ASCII 


/GE / 




.ASCII 


/REC/ 




.ASCII 


/ETV/ 




.ASCII 


/E0/<00> 




.ASCII 


<00> 




.ASCII 


/*N*/ 




.ASCII 


/A$FV 




.ASCII 


/TIE/ 




.ASCII 


/RR / 




.ASCII 


/ UN/ 




.ASCII 


/EXP/ 




.ASCII 


/ECT/ 




.ASCII 


/ED / 




.ASCII 


/sen/ 




.ASCII 


/rou/ 




.ASCII 


/S E/ 




.ASCII 


/XCE/ 




.ASCII 


/PTI/ 




.ASCII 


/ON / 




.ASCII 


/END/ 




.ASCII 


/ Mf / 




.ASCII 


/SSA/ 




.ASCII 


/GE / 




.ASCII 


/RtC/ 




.ASCII 


/EIV/ 




.ASCII 


/ED/<00 




.ASCII 


'00 • 




.A^CII 


/UN*/ 




.ASCII 


/Alf- / 




.ASCII 


.< ;le/ 




.ASCII 


/RM / 




.ASCII 


/ IN/ 





SEQ 0074 
VAXU Bliss-16 V3-555 Page 30 

SPIDER*USERS:[NEALE.AZTEC]ZRCHB2,B16;5 (13) 



ZRCHB2 




ZRCHBO 


RC25 DI! 


REV B PATCH 00 


GLOBAL 


TEXT St( 


004131 


126 


101 


114 


004154 


111 


104 


040 


00415/ 


103 


117 


115 


004142 


115 


101 


116 


004145 


104 


040 


105 


004150 


116 


104 


040 


004155 


115 


105 


123 


004156 


123 


101 


10 7 


004161 


105 


040 


122 


004164 


105 


103 


105 


004167 


111 


126 


105 


004172 


104 


000 




004174 


045 


116 


045 


00417 7 


101 


044 


106 


004202 


124 


114 


105 


004205 


122 


122 


055 


004210 


040 


125 


116 


004213 


113 


116 


117 


004216 


127 


116 


040 


004221 


115 


105 


123 


004224 


123 


101 


107 


00422 / 


105 


040 


124 


004232 


131 


120 


105 


004235 


040 


122 


105 


004240 


103 


105 


111 


004243 


126 


105 


104 


004246 


000 


000 




004250 


04 5 


116 


045 


004253 


101 


044 


106 


004256 


124 


114 


105 


004261 


122 


122 


055 


004264 


040 


117 


125 


00426 7 


12^ 


123 


124 


004272 


101 


116 


104 


004275 


ill 


116 


10 7 


004300 


040 


103 


117 


004 303 


115 


115 


101 


004306 


116 


104 


040 


004311 


102 


125 


106 


004314 


106 


105 


122 


00431/ 


040 


106 


125 


004322 


114 


114 


000 


004 325 


000 






004 326 


045 


116 


04 5 


004331 


101 


044 


106 


004334 


124 


114 


105 


004337 


122 


122 


055 


004342 


040 


117 


125 


004 345 


124 


04 


123 


004 350 


124 


101 


116 


004353 


104 


111 


116 


004 356 


107 


040 


103 


004 361 


317 


115 


115 


004 364 


101 


116 


104 


004 36 7 


040 


102 


125 


004 3/2 


106 


106 


1^5 


004 3 75 


122 


040 


117 



i<6 

5 Apr -1984 13:19:09 

5-Apr-l9«4 13: 16; 08 



SEQ 00/5 
VAX-1I Bliss-16 V3-1555 Pcge 31 

SPIUER JUSERS i [ NEALE , AZTEC ]ZRCHB2 . B16 { 3 C 13 j 



P , ABZ j 



P.ACAs 



P.ACB: 



ASCII 


/VAL/ 


ASCII 


/ID / 


ASCII 


/COM/ 


ASCII 


/MAN/ 


ASCII 


/O E/ 


ASCII 


/NO / 


ASCII 


/MES/ 


ASCII 


/SAG/ 


ASCII 


/£. R/ 


ASCII 


/ECF./ 


ASCII 


/IVE/ 


ASCII 


/D/<00> 


ASCII 


/#N*/ 


ASCII 


/A$f / 


ASCII 


/TLE/ 


ASCII 


/RR - / 


ASCII 


/ UN/ 


ASCII 


/KNO/ 


ASCII 


/UN / 


ASCII 


/MES/ 


ASCII 


/SAG/ 


ASCII 


/E T/ 


ASCII 


/YPE/ 


ASCII 


/ RE/ 


ASCII 


/CEI/ 


ASCII 


/VED/ 


ASCII 


<00><0Q> 


ASCII 


/*N#/ 


ASCII 


/A$F/ 


ASCII 


/TLE/ 


ASCII 


/RR / 


ASCII 


/ ou/ 


ASCII 


/TST/ 


ASCII 


/AND/ 


ASCII 


ZING/ 


ASCII 


/ CO/ 


ASCII 


/MMA/ 


ASCII 


/NO / 


ASCII 


/BUf / 


ASCII 


/EER/ 


ASCII 


/ EU/ 


ASCII 


/Ll/<00> 


ASCII 


<00> 


ASCII 


/*N*/ 


ASCII 


/Aif / 


ASCII 


/Til / 


ASCII 


/RR / 


ASCII 


/ OU/ 


ASCII 


/T 5/ 


ASCII 


/TAN/ 


ASCII 


/OIN/ 


ASCII 


/(. c/ 


ASCII 


/OMM/ 


ASCII 


/AND/ 


ASCII 


/ HU/ 


ASCII 


/F h'k / 


ASCII 


/R 0/ 



L6 



7RCHB2 

RFV B PATCH 

004400 

004403 

004406 

004411 

004414 

004417 

004422 

004425 

004430 

0044 33 

004436 

004441 

004444 

00444 7 

0G4452 

004455 

004460 

00446? 

004466 

004471 

0044 74 

00447 7 

004500 

004503 

004506 

004511 

004514 

004517 

00452? 

004525 

004530 

004533 

004536 

004541 

004 544 

00454 7 

004552 

004 555 

004560 

004563 

004566 

004571 

004574 

00457 7 

004602 

004605 

004610 

00461,? 

004615 

004620 

004623 

004626 

004651 

004634 

00465 7 

004 64, > 

004645 



00 

125 

117 
123 
103 
122 
122 
045 
101 
124 
122 
040 
113 
127 
115 
123 
105 
125 
105 
122 
105 
105 
000 
045 
101 
124 
122 
040 
114 
122 
104 
122 
122 
045 
101 
124 
122 
040 
122 
103 
124 
114 
122 
111 
li/ 
040 
122 
000 
045 
101 
124 
122 
040 
114 
101 
106 
U40 
114 



ZRCHBO 
GLOBAL 

124 
106 

131 
040 
122 
000 
116 
044 
114 
122 
125 
1.16 
116 
105 
101 
040 
115 
122 
105 
111 
104 

116 
044 
114 

122 
106 
105 
105 
040 
122 
000 
116 
044 
114 
122 
120 
124 
117 
122 
114 
040 
115 
125 
105 
11/ 
000 
116 
044 
114 
122 
111 
105 
1 1.4 
105 
106 
105 



RC25 DISK hORHATTER 
TEXT SECTION 



040 
040 
116 
105 
11? 
000 
045 
106 
105 
055 
116 
117 
040 
123 
107 
116 
102 
040 
103 
126 
000 



5~Apr-1984 13:19:09 
5-Apr-1964 13:16:08 



SEU 00 76 
VAX 11 Bliss-16 V3 555 Pqqc 32 

SPIDER $ USERS t [ NEALE . AZTEC URCHB2 , B 16 ; 5 (13; 



045 

106 
105 
055 
111 
040 
101 
105 
117 
000 
045 
106 
105 
055 
117 
057 
116 
117 
105 
124 
105 
124 
12<: 
122 

045 
106 
105 
055 
114 
10/ 
040 
124 
111 
040 



P.ACC: 



P.ACD: 



P. ACE: 



P.ACF": 



ASCII 


/UT / 


ASCII 


/OF / 


ASCII 


/SYN/ 


ASCII 


/C E/ 


ASCII 


/RRO/ 


ASCII 


/R/<00><00> 


ASCII 


/#N*/ 


ASCII 


/A$F/ 


ASCII 


/TLE/ 


ASCII 


/RR-/ 


ASCII 


/ UN/ 


ASCII 


/KNO/ 


ASCII 


/WN / 


ASCII 


/MES/ 


ASCII 


/SAG/ 


ASCII 


/E N/ 


ASCII 


/UM8/ 


ASCII 


/ER / 


ASCII 


/REC/ 


ASCII 


/EIV/ 


ASCII 


/ED/<00> 


ASCII 


<00> 


ASCII 


/*N*/ 


ASCII 


/AiF/ 


ASCII 


/TLE/ 


ASCII 


/RR- / 


ASCII 


/ * 1/ 


ASCII 


/LE / 


ASCII 


/REA/ 
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/D E/ 


ASCII 
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/R 1/ 
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/OUT/ 
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/LEG/ 
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/At / 
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110 
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000 
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004662 


003004' 






004664 


003054' 






004666 


003122' 






C04670 


003172' 






004672 


003234' 






004674 


003276' 






004676 


003340' 






004700 


003406' 






004 702 


003450' 






004 704 


003510' 






004 706 


003556' 






004 710 


003622' 






004 712 


003712' 






004714 


004012' 






004 716 


004112* 






004 720 


004174' 






004,22 


004250' 






004724 


004326' 






004/26 


004422' 






004 730 


004500' 






004 732 


004536' 






004 734 


004612' 






004 736 


045 


116 


045 


004 741 


101 


044 


106 


004 744 


124 


114 


105 


004 74 7 


122 


122 


055 


004 752 


040 


126 


101 


004 755 


130 


040 


122 


004 760 


105 


101 


104 


004 763 


057 


127 


122 


004 766 


111 


124 


105 


004 771 


040 


105 


122 


004/ 74 


122 


117 


122 


004 7 / / 


040 


117 


116 


005002 


040 


111 


116 


005005 


124 


105 


122 


005010 


122 


125 


120 


005013 


124 


000 


000 


005016 


045 


116 


045 


005021 


101 


044 


106 


005024 


124 


114 


105 


00502 7 


122 


122 


O c <5 


005032 


040 


111 


116 


005035 


5 03 


117 


116 


005040 


123 


111 


123 


005043 


124 


105 


116 


0O5O46 


103 


131 


040 


005051 


101 


124 


040 


005054 


125 


056 


102 


00505 / 


106 


111 


114 


005062 


000 


000 




005064 


045 


116 


04 5 


00506/ 


101 


044 


106 
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ASCII 


/GTH/ 




ASCII 


<00><00> 




WORD 


P.ABJ 




WORD 


P.ABK 




WORD 


P.ABL 




WORD 


P. ABM 




WORD 


P.ABN 




WORD 


P.ABO 




WORD 


P.ABP 




WORD 


P.ABQ 




WORD 


P.ABR 




WORD 


P.ABS 




WORD 


P.ABT 




WORD 


P.ABU 




WORD 


P.ABV 




WORD 


P.ABW 




WORD 


P.ABX 




WORD 


i\ABY 




WORD 


I .ABZ 




WORD 


C.ACA 




WORD 


P.ACB 




WCilD 


P.ACC 




WORD 


P.ACD 




WORD 


P. ACE 




WORD 


P.ACr 




ASCII 
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ASCII 


/A$F/ 




ASCII 


/TLE/ 




ASCII 


/RR / 




ASCII 


/ VA/ 




ASCII 


/X R/ 




ASCII 


/EAD/ 




ASCII 
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ASCII 


/ITE/ 




ASCII 


/ ER/ 




ASCII 
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ASCII 


/ ON/ 




ASCII 


/ IN/ 




ASCII 


/TER/ 




ASCII 


/RUP/ 




ASCII 


/T/<00><00> 




ASCII 


/*N*/ 




ASCII 


/AM / 




ASCII 


/Tl E/ 




ASCII 


/RR / 




ASCII 


/ IN/ 




ASCII 


/CON/ 




ASCII 


/SIS/ 




ASCII 


/TEN/ 




ASCII 


/Ci / 




ASCII 


/AT / 




ASCII 


/U.tl/ 




ASCII 


/y it./ 
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005072 
005075 

005100 
005103 
00510b 
005111 
005114 
005117 
0C5122 
005125 
005150 
00513^ 
005135 
005140 
005143 
005146 
005151 
005154 
005157 
00516c? 
005165 
005170 
0051/3 
005176 
005200 
005203 
005206 
005211 
005214 
005217 
005222 
005225 
O5230 
.'05233 
005236 
005241 
005244 
00524 / 
005252 
005255 
005260 
005263 
005264 
005267 
005272 
005275 
005300 
005303 
005306 
00531 1 
005314 
00531/ 
005322 
005325 
005330 
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124 
122 
04 

103 

123 

124 

103 

101 

125 

115 

000 

045 

101 

124 

122 

040 

103 

123 

124 

103 

101 

125 

114 

000 

015 

101 

124 

122 

040 

103 

123 

124 

103 

101 

123 

1^6 

10_- 

122 

050 

120 

105 

000 

045 

101 

124 

122 

040 

103 

l.Ti 

124 

103 

101 

123 

126 

10!) 

122 

050 
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114 
122 
111 
117 
111 
105 
131 
124 
056 
124 
000 
116 
044 
114 
122 
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117 
111 
105 
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124 
056 
117 
000 
116 
0^4 
114 
122 
111 
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124 
105 
117 
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124 

116 

044 
114 
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117 
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105 
055 
116 
116 
123 
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040 
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102 
131 

045 
106 
105 
055 
116 
116 
123 
116 
040 
040 
101 
103 

045 
106 
105 
055 
116 
116 
123 
116 
040 
040 
122 
040 
124 
040 
111 
123 
051 

045 
10b 
105 
055 
116 
116 
123 
116 
040 
040 

A. (.- I. 
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124 

040 
122 
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/TEN/ 
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/LOC/ 
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/TLE/ 
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/AT / 
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/ENT/ 

/HY / 
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/AU/ 
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/RR / 
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/CON/ 
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/TEN/ 

/CY / 
/AT / 
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/vo / 
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/HY / 
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005341 


12? 


040 


123 




.ASCII 


/H S/ 




005344 


105 


124 


051 




.ASCII 


/FT)/ 




00.534 7 


000 








.ASCII 


<00> 




005350 


045 


116 


045 


P.ACNi 


.ASCII 


/UN*/ 




005353 


101 


044 


106 




.ASCII 


/AIF/ 




005356 


124 


114 


105 




.ASCII 


/TLE/ 




005361 


1?? 


122 


055 




.ASCII 


/RP / 




005 564 


040 


in 


116 




.ASCII 


/ IN/ 




00536 ; 


103 


117 


116 




.ASCII 


/CON/ 




00537? 


123 


Hi 


lcS 




.ASCII 


/sis/ 




0053 75 


124 


105 


116 




.ASCII 


/TEN/ 




005400 


10? 


131 


040 




.ASCII 


/CY / 




005403 


101 


124 


040 




■ASCII 


/AT / 




003406 


125 


056 


123 




.ASCII 


/u.s/ 




005411 


105 


116 


104 




.ASCII 


/ENO/ 




005414 


ooo 


000 






.ASCII 


<00><00> 




005416 


045 


116 


045 


P. AGO: 


.ASCII 


/#N#/ 




005421 


101 


044 


106 




.ASCII 


/Air/ 




005424 


124 


114 


105 




.ASCII 


/TLE/ 




005427 


122 


122 


055 




.ASCII 


/RR / 




0054 52 


040 


111 


116 




.ASCII 


/ IN/ 




005435 


103 


117 


116 




.ASCII 


/CON/ 




005440 


123 


111 


123 




.ASCII 


/sis/ 




005443 


124 


105 


116 




.ASCII 


/TEN/ 




0OS446 


103 


131 


040 




.ASCII 


/Ct / 




005451 


101 


124 


040 




.ASCII 


/AT / 




005454 


125 


056 


12? 




.ASCII 


/U.R/ 




005457 


105 


103 


126 




.ASCII 


/ECV/ 




005462 


000 


000 






.ASCII 


< 00 * < 00 > 




005464 


045 


116 


045 


P.ACPj 


.ASCII 


/#N#/ 




00546 7 


101 


044 


106 




.ASCII 


/Air/ 




0054/2 


124 


114 


105 




.ASCII 


/TLE/ 




0054/5 


12? 


122 


055 




.ASCII 


/RR / 




005500 


040 


111 


116 




.ASCII 


/ IN/ 




005503 


10"> 


117 


116 




.ASCII 


/CON/ 




005506 


123 


111 


123 




.ASCII 


/SIS/ 




005511 


124 


105 


116 




.ASCII 


/TEN/ 




005514 


103 


131 


040 




.ASCII 


/Ct / 




005517 


101 


124 


040 




.ASCII 


/AT / 




005522 


125 


056 


101 




.ASCII 


/U.A/ 




005525 


124 


124 


116 




.ASCII 


/TTN/ 




005530 


000 


000 






.ASCII 


« 00 >< 00 > 




00555? 


045 


U6 


045 


P. ACQ: 


.ASCII 


/#N*' 




0055 35 


101 


044 


106 




.ASCII 


/AIF / 




005540 


124 


114 


105 




.ASCII 


/TLE/ 




00554 3 


1?2 


u. 


055 




.ASCII 


/RH / 




005546 


CMO 


Hi 


116 




.ASCII 


/ IN/ 




005551 


10.1 


117 


116 




.ASCII 


/CON/ 




005 »54 


123 


111 


123 




.ASCII 


/sis/ 




00555 7 


i?4 


105 


116 




.ASCII 


/TEN/ 




005562 


105 


131 


040 




.ASCII 


/O .' 




v>05565 


101 


124 


040 




.ASCII 


/AT .* 




0055 70 


125 


05* 


11 7 




.ASCII 


/U.Q/ 




'»055/3 


116 


114 


116 




.ASCII 


/NCN/ 




0055 /6 


000 


000 






.ASCII 


*00»<QO» 




00V-00 
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116 


045 
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101 
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00560* 


124 


114 


105 




.ASCII 


/TIE/ 




005611 


122 


122 


055 




.ASCII 


/RR-/ 




005614 


040 


111 


114 




.ASCII 


/ IL/ 




005617 


11* 


105 


107 




.ASCII 


/LEG/ 




00562*2 


101 


114 


040 




.ASCII 


/AL / 




005625 


104 


040 


122 




.ASCII 


/D 1/ 




0056 50 


105 


121 


125 




.ASCII 


/EQU/ 




005635 


105 


123 


1^1 




.ASCII 


/EST/ 




005636 


040 


050 


125 




.ASCII 


/ (U/ 




005641 


056 


121 


104 




.ASCII 


/.QO/ 




005644 


122 


121 


051 




.ASCII 


/RQ)/ 




00564 7 


OOO 








.ASCII 


<00> 




005650 


045 


116 


045 
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.ASCII 


/*N#/ 




005653 


101 


044 


106 




.ASCII 


/A$E/ 




00565b 


124 


114 


105 




.ASCII 


/TIE/ 




005661 


122 


122 


055 




.ASCII 


/RR-/ 




005664 


040 


106 


105 




.ASCII 


/ FEZ 




005667 


lib 


103 


105 




.ASCII 


/NCE/ 




0056 72 


055 


120 


117 




.ASCII 


/-PO/ 




0056 75 


123 


124 


040 




.ASCII 


/ST / 




005 700 


105 


122 


122 




.ASCII 


/ERR/ 




005703 


117 


122 


040 




.ASCII 


/OR / 




005706 


101 


124 


040 




.ASCII 


/AT / 




005711 


120 


122 


117 




.ASCII 


/PRO/ 




005714 


124 


101 


102 




.ASCII 


/TAB/ 




005717 


OOO 








.ASCII 


<00> 




005 720 


04 5 


116 


045 


P. ACT: 


.ASCII 


/tfN*/' 




005723 


101 


044 


106 




.ASCII 


/AiF/ 




005726 


124 


114 


105 




.ASCII 


/TLE/ 




005731 


122 


122 


055 




.ASCII 


/RR / 




0057 54 


040 


102 


101 




.ASCII' 


/ BA/ 




005/37 


104 


040 


120 




.ASCII 


/D P/ 




005742 


101 


103 


113 




.ASCII 


/ACK/ 




005745 


105 


124 


040 




.ASCII 


/ET / 




005753 


104 


105 


121 




.ASCII 


/DEQ/ 




005753 


125 


105 


125 




.ASCII 


/UF.IV 




005756 


105 


104 


040 




.ASCII 


/ED / 




005 761 


101 


124 


040 




.ASCII 


/AT / 




00576 \ 


125 


056 


104 




.ASCII 


/U.D/ 




00576/ 


117 


116 


105 




.ASCII 


/ONE/ 




005 7 7? 


000 


000 






.ASCII 


<00»<00> 




0057 74 


045 


116 


045 


P.ACUi 


.ASCII 


/*H*/ 




0057 77 


101 


044 


106 




.ASCII 


/AlF / 




006002 


124 


114 


105 




.ASCII 


/TLE/ 




006005 


122 


122 


055 




.ASCII 


/RR / 




006010 


040 


125 


116 




.ASCII 


/ UN/ 




006013 


105 


130 


120 




. ASC 1 1 


/EXP/ 




006016 


114 


101 


111 




.ASCII 


/LAI/ 




0O6021 


116 


105 


104 




.ASCII 


/NED/ 




006024 


040 


104 


055 




.ASCII 


/ / 




00602^ 


120 


122 


11? 




.ASCII 


/PRO/ 




006032 


103 


040 


123 




.ASCII 


/C 5/ 




006035 


125 


123 


120 




.ASCII 


/usp/ 




006040 


105 


116 


125 




.ASCII 


/ENS/ 




00604 ? 


111 


117 


ll*i 




.ASCII 
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006046 


04U 


050 


125 
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056 


056 


124 




.ASCII 


/..T/ 





SEQ 0060 
VAX 11 Bl.ss-16 V3 555 Pao« 36 

SPIDERJUSERS: [NEALE, AZTEC ]/RCHB2.B16j5 C13) 



D7 



7RCHU2 

REV B PATCH 

006054 

00605? 

006060 

006063 

006066 

006071 

006074 

0060V 7 

00610? 

006105 

006110 

00611? 

006116 

006121 

006124 

006127 

006152 

006135 

006140 

06143 

006146 

006151 

006154 

006157 

0O6162 

006165 

00617U 

006173 

006176 

006201 

006204 

006206 

006211 

006214 

006217 

006222 

006225 

006230 

006233 

006236 

006241 

006244 
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006252 

006254 

006257 

006262 

006265 

006270 
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006276 

006301 

006304 

006 50 7 

006 312 

006315 

006320 



00 

104 
000 
045 

101 
124 
122 
040 
120 
101 
105 
10-4 
010 

111 

104 
130 
040 
057 
05i 
045 
101 
124 
122 
040 
103 
123 
124 
103 
101 
125 
124 
000 
045 
101 
124 
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124 
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101 
125 
105 
000 
045 
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124 
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124 
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101 
125 
113 
000 
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116 
044 
114 

122 
104 
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103 
124 
055 
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114 
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000 
116 
044 
114 
122 
111 
117 

111 
105 
131 
124 
056 
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000 
116 
044 
114 
122 
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105 
131 
124 
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000 
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114 
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105 
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045 
106 
105 
055 
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120 
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105 
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064 
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000 
045 
106 
105 
055 
116 
116 
123 
116 
040 
040 
110 
124 

045 
106 
105 
055 
116 
116 
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040 
040 
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045 

106 
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055 
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.ASCII 


<00> 


.ASCII 


/*N*/ 


.ASCII 


/A$r/ 


.ASCII 


/TLF./ 


.ASCII 


/RR-/ 


.ASCII 


/ DU' 


.ASCII 


/P P/ 


.ASCII 


/ACK/ 


.ASCII 


/ET / 


.ASCII 


/D-Q/ 


.ASCII 


/ FA/ 


.ASCII 


/ILE/ 


.ASCII 


/D (/ 


.ASCII 


/XFC/ 


.ASCII 


/ 34/ 


.ASCII 


<57>/35/ 


.ASCII 
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.ASCII 


/#N*/ 


.ASCII 


/A$F/ 


.ASCII 


/TIE/ 


.ASCII 


/RR-/ 


.ASCII 


/ IN/ 


.ASCII 


/CON/ 


.ASCII 


/SIS/ 


.ASCII 


/TEN/ 


.ASCII 


/CI / 


.ASCII 


/AT / 


.ASCII 


/U.H/ 


.ASCII 


/TST/ 


.ASCII 


<00><00> 


.ASCII 


/#N*/ 


.ASCII 


/AIF/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ IN/ 


.ASCII 


/CON/ 


.ASCII 


/SIS/ 


.ASCII 


/TFN/ 


.ASCII 


/CY / 


.ASCII 


/AT / 


.ASCII 


/u.s/ 


.ASCII 


/EKO/ 


ASCII 


<00><00> 


.ASCII 


/#N*/ 


.ASCII 


/A*F / 


.ASCII 


/TLE/ 


.ASCII 


/RR / 


.ASCII 


/ IN/ 


.ASCII 


/CON/ 


.ASCII 


/sis/ 


.ASCII 


/TEN/ 


.ASCII 


/O / 


.ASCII 


/AT / 


.ASCII 


/u.c/ 


.ASCII 


/KSV/ 


.ASCII 


<00^<00> 



SEQ 008 I 
VAX-11 Rli«9-16 V3 555 P a g« 37 

SPIDER*USERSi[NEALE.A/TEC}ZRCHB2 < B16j5 C 13; 



ZRCH62 

REV B PATCH 00 



2RCH60 RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



E7 

5 -Apr -1984 13; 19:09 
5-Apr-1984 13;16;08 



SEQ 0082 
VAX-11 Bli99-16 V3-555 Pace 38 

SPIDER*USERS:[NEALE.AZTEC]ZRCHB2,Bl6j5 C13) 



006322 
006325 
006330 
006333 
006336 
006341 
006344 
006347 
006352 
006355 
006360 
006363 
006366 
006371 
0063^4 
006377 
006402 
006405 
006410 
006413 
006416 
006421 
006424 
006427 
006432 
006435 
006440 
006443 
006444 
00644 7 
006452 
006455 
006460 
006463 
006466 
0064 71 
0064 74 
0064 7 7 
006502 
006505 
006510 
006513 
006516 
006521 
006524 
006527 
006532 
006535 
006540 
0O6543 
006546 
006551 
006554 
00655 7 
006562 
006565 
006570 



045 
101 
124 
122 
040 
117 
104 
117 
104 
114 
107 
040 
103 
105 
045 
101 
124 
122 
040 
103 
040 
125 
040 
114 
101 
117 
117 
000 
045 
101 
124 
122 
040 
113 
127 
102 
040 
111 
040 
101 
123 
124 
056 
124 
045 
101 
124 
122 
040 
114 
101 
130 
040 
105 
124 
040 
040 



116 
044 
114 
122 
104 
120 
040 
125 
040 
114 
101 
117 
117 
000 
116 
044 
114 
122 
104 
123 
106 
116 
111 
105 
114 
120 
104 

116 
044 
114 
122 
125 
116 
116 
101 
104 
126 
123 
124 
040 
040 
104 
123 
116 
044 
114 
122 
111 
105 
114 
106 
105 
103 
105 
102 
104 



045 
106 
105 
055 
056 
103 
106 
116 
111 
105 
114 
120 
104 
000 
045 
106 
105 
055 
056 
106 
117 
104 
114 
107 
040 
103 
105 

045 
106 
105 
055 
116 
117 
040 
104 
122 
105 
124 
125 
101 
104 
123 
000 
045 
106 
105 
055 
114 
107 
040 
103 
130 
125 
104 
131 
115 



P.ACZ; 



P.ADA; 



P.ADB: 



P.ADC: 



.ASCII 


/*H#/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ D./ 


.ASCII 


/OPC/ 


.ASCII 


/D F/ 


.ASCII 


/OUN/ 


.ASCII 


/D 1/ 


.ASCII 


/LLE/ 


.ASCII 


/GAL/ 


.ASCII 


/ OP/ 


.ASCII 


/COD/ 


.ASCII 


/E/<00><00> 


.ASCII 


/*Nh*/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ D./ 


.ASCII 


/csr/ 


.ASCII 


/ FO/ 


.ASCII 


/UNO/ 


.ASCII 


/ IL/ 


.ASCII 


/LEG/ 


.ASCII 


/AL / 


.ASCII 


/OPC/ 


.ASCII 


/ODE/ 


.ASCII 


<00> 


.ASCII 


/*NW/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ UN/ 


.ASCII 


/KNO/ 


.ASCII 


/UN .' 


.ASCII 


/BAD/ 


.ASCII 


/ DR/ 


.ASCII 


/IVE/ 


.ASCII 


/ ST/ 


.ASCII 


/ATU/ 


.ASCII 


/S A/ 


.ASCII 


/T D/ 


.ASCII 


/.OS/ 


.ASCII 


/TS/<00> 


.ASCII 


/#N*/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR / 


.ASCII 


/ IL/ 


.ASCII 


/LEG/ 


.ASCII 


/AL / 


.ASCII 


/XFC/ 


.ASCII 


/ EX/ 


.ASCII 


/ECU/ 


.ASCII 


/TED/ 


.ASCII 


/ BY/ 


.ASCII 


/ DM/ 



ZRCHBi? 




ZRCHfiO 


RC25 DIJ 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


006573 


000 






006574 


045 


116 


045 


006577 


501 


044 


106 


006602 


124 


114 


105 


006605 


122 


122 


055 


006610 


040 


104 


040 


006613 


120 


111 


103 


006616 


113 


105 


104 


006621 


040 


125 


120 


006624 


040 


101 


040 


006627 


132 


105 


122 


006632 


117 


040 


123 


006635 


103 


102 


056 


006640 


104 


102 


000 


006643 


000 






006644 


045 


116 


045 


00664 7 


101 


044 


106 


006652 


124 


114 


105 


006655 


122 


122 


055 


006660 


040 


111 


116 


006663 


103 


117 


116 


006666 


123 


111 


123 


006671 


124 


105 


116 


006674 


103 


131 


040 


006677 


101 


124 


040 


006702 


104 


040 


111 


006705 


104 


114 


105 


006710 


040 


114 


117 


006713 


117 


120 


000 


006716 


045 


116 


045 


006721 


101 


044 


106 


006724 


124 


114 


105 


006727 


122 


122 


055 


OC6732 


040 


104 


115 


006735 


040 


127 


117 


006 740 


122 


104 


040 


00674 3 


103 


117 


125 


006746 


116 


124 


040 


006751 


105 


122 


122 


006754 


117 


122 


040 


006757 


117 


116 


040 


006762 


110 


117 


123 


006765 


124 


040 


104 


006770 


115 


101 


057 


0067 73 


123 


105 


116 


006 7 76 


104 


05 7 


122 


007001 


105 


103 


126 


007004 


000 


000 




00 7006 


04 5 


116 


045 


007011 


101 


044 


106 


007014 


124 


114 


105 


00701/ 


122 


122 


055 


007022 


040 


125 


116 


007025 


113 


116 


117 


007030 


12 7 


116 


040 


00 7033 


104 


111 


123 


007036 


120 


114 


101 



P . ADD j 



P.ADE: 



P.ADF; 



P.ADG: 



F7 

5-Apr-1984 13:19;09 
5-'<pr-19«4 13; 16 ; 08 



SEQ 0083 
VAX-11 Bliss-16 V3-555 P afl e 39 

SPIDEFUUSF.RS : [ NEALE . AZTEC JZRCH82 ♦ B16 * 5 C 13) 



.ASCII 


<00> 


.ASCII 


/#N#/ 


.ASCII 


/A*F- 


.ASCII 


/T! £/ 


.ASCII 


/P*~/ 


.ASCII 


/ D / 


. *SCII 


/PIC/ 


.ASCII 


/KED/ 


.ASCII 


/ UP/ 


.ASCII 


/ A / 


.ASCII 


/ZER/ 


.ASCII 


/O S/ 


.ASCII 


/CB./ 


.ASCII 


/DB/<00> 


.ASCII 


<00> 


.ASCII 


/UN*/ 


.ASCII 


/AIF/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ IN/ 


.ASCII 


/CON/ 


.ASCII 


/SIS/ 


.ASCII 


/TEN/ 


.ASCII 


/CY / 


.ASCII 


/AT / 


.ASCII 


/O 1/ 


.ASCII 


/OLE/ 


.ASCII 


/ LO/ 


.ASCII 


/0P/<00> 


.ASCII 


/#N#/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ DM/ 


.ASCII 


/ wo/ 


.ASCII 


/RD / 


.ASCII 


/cou/ 


.ASCII 


/NT / 


.ASCII 


/ERR/ 


.ASCII 


/OR / 


.ASCII 


/ON / 


.ASCII 


/HOS/ 


.ASCII 


/T D/ 


.ASCII 


/MA/<57> 


.ASCII 


/SIN/ 


.ASCII 


/D/<57>/R/ 


.ASCII 


/ECV/ 


.ASCII 


<00><00> 


.ASCII 


/UN*/ 


.ASCII 


/AiF/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ UN/ 


.ASCII 


/KNO/ 


.ASCII 


/UN / 


.ASCII 


/DIS/ 


.ASCII 


/PLA/ 



ZRCHBJ 

REV B PATCH 00 



007041 

007044 
00704 7 
007052 
007055 
007060 
007063 
007066 
007070 
007073 
007076 
007101 
007104 
007107 

007112 

007115 

007120 
O07123 
007126 
007131 
007134 
007137 
007142 
007145 
007150 
007153 
007156 
007161 
007164 
C?7167 
007172 
007175 
007200 
007203 
00 7206 
007211 
007214 
007217 
007222 
007224 
00/227 
007232 
007235 
O07240 
00/243 
007246 
007251 
00 7254 
00 7257 
007262 
007265 
00 72 70 
00 72 7 3 
0072 76 
00 7 500 
00 7303 
007306 



131 
101 
124 
117 
040 
040 
104 
124 
045 
101 
124 
122 
040 
111 
040 
124 
101 
124 
107 
116 
056 
114 
123 
124 
045 
101 
124 
122 
040 
120 
105 
125 
104 
107 
123 
103 
106 
114 
000 
045 
101 
124 
122 
040 
120 
105 
1 2^ 
104 
10 7 
123 
103 
106 
114 
000 
045 
101 
124 



ZRCHGO RC25 
GLOBAL TEXT 

040 

125 

040 

104 

101 

104 

106 

000 

116 045 

044 106 

114 105 

122 055 

104 122 
126 105 

116 117 
040 106 
125 114 
111 116 
040 111 
040 120 

117 106 
116 040 

124 101 

105 000 

116 045 
044 106 
114 105 
122 055 

125 040 

117 1?7 

122 040 
120 040 
111 101 
116 117 
124 HI 

123 040 
101 111 
105 104 
000 

116 045 

044 106 

114 105 

122 055 

104 040 
11/ 127 
12?. 040 
12C 040 
111 101 
116 117 

124 111 

123 040 
101 111 

105 104 
000 

116 045 

044 106 

114 105 



DISK FORMATTER 
SECTION 

106 
114 
103 
105 
124 
056 
114 



G7 

5-Apr-1984 13:19:09 
5-Apr-19ti4 13:16:08 



SEQ 0084 
VAX-11 BiJss-16 V3-555 Poqc 40 

SPIDER*USERS:[NEALE,AZTEC]ZRCHB2.B16;5 (13) 



P.ADHt 



P.ADI: 



P.ADJ: 



P. AUK: 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



/y r/ 

/AUL/ 

/T C/ 

/ODE/ 

/ AT/ 

/ 0./ 

/DR./ 

/T/<00> 

/#N*/ 

/AJF/ 

/TIE/ 

/RR-/ 

/ DR/ 

/IVE/ 

/ NO/ 

/T FV 

/AUL/ 

/TIN/ 

/G 1/ 

/N P/ 

/.OF/ 

/LN / 

/STA/ 

/TE/<00> 

/AiF/ 

/TLE/ 
/RR-/ 
/ U / 
/POW/ 
/ER / 
/UP / 
/DIAZ 
/GNO/ 
/STI/ 
/CS / 
/FAI/ 
/LED/ 
< 00 >< 00 > 

/*u*/ 

/AIF/ 

/TLE/ 

/RR-/ 

/ D / 

/POW/ 

/ER / 

/\JP / 

/DIA/ 

/GNO/ 

/STI/ 

/CS / 

/FAI/ 

/LED/ 

<00*<00> 

/*N*/ 

/AUV 

/TLE/ 



ZRCHB2 




2RCHB0 


RC25 DI< 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


007311 


122 


122 


055 


007314 


040 


101 


104 


007317 


101 


120 


124 


007322 


105 


122 


040 


00/325 


103 


101 


122 


007330 


104 


040 


106 


007333 


101 


111 


114 


007336 


125 


122 


105 


007341 


000 






00734? 


045 


116 


045 


00 7 34 5 


101 


044 


106 


007350 


124 


114 


105 


007353 


122 


122 


055 


007356 


040 


105 


103 


007361 


056 


124 


115 


007364 


122 


040 


124 


00 736 7 


111 


115 


105 


007372 


104 


040 


117 


00 7375 


125 


124 


000 


007400 


045 


116 


045 


007403 


101 


044 


106 


007406 


124 


114 


105 


007411 


122 


122 


055 


007414 


040 


125 


056 


007417 


123 


105 


116 


00742? 


104 


057 


125 


007425 


056 


122 


105 


00 7430 


103 


126 


040 


007433 


122 


111 


116 


007436 


107 


040 


122 


007441 


105 


101 


104 


007444 


040 


111 


116 


00744 7 


103 


11/ 


116 


00/452 


123 


111 


123 


007455 


124 


105 


116 


007460 


103 


131 


000 


007463 


000 






007464 


045 


116 


045 


00 746 7 


101 


044 


106 


0074/2 


124 


114 


105 


0074 75 


122 


122 


055 


007500 


040 


125 


116 


00/503 


113 


1.16 


117 


007506 


12/ 


116 


040 


00/511 


12/ 


101. 


111 


007514 


124 


122 


126 


00/51/ 


040 


122 


105 


00 /5?2 


301. 


123 


117 


007525 


116 


040 


101 


00/530 


124 


040 


104 


00/533 


056 


12? 


126 


00/536 


103 


124 


000 


00/541 


000 






00/54? 


04 5 


11> 


04 5 


00/545 


101 


044 


106 


00/550 


124 


114 


105 


00 7553 


122 


122 


055 



FORMATTER 



P.ADLt 



P . ADM { 



P.ADN: 



H7 

5-Aprl984 13:19:09 

5-Apr-1984 13:16:08 



SEQ 0085 
VAX-11 BlJos-16 V3-555 Paac 41 

SPI0ER$USERS:tNEALE.AZTEC]ZRCHB2.B16;5 (13 J 



P. ADO 



ASCII 


/RR-/ 


ASCII 


/ AD/ 


ASCII 


/APT/ 


ASCII 


/ER / 


ASCII 


/CAR/ 


ASCII 


/OF/ 


ASCII 


/AIL/ 


ASCII 


/URE/ 


ASCII 


<00> 


ASCII 


/*N*/ 


ASCII 


/A$r/ 


ASCII 


/TLE/ 


ASCII 


/RR-/ 


ASCII 


/ EC/ 


ASCII 


/.TM/ 


ASCII 


/R T/ 


ASCII 


/IME/ 


ASCII 


/D 0/ 


ASCII 


/UT/<00> 


ASCII 


/*N*/ 


ASCII 


/A$F/ 


ASCII 


/TLE/ 


ASCII 


/RR / 


ASCII 


/ u./ 


ASCII 


/SEN/ 


ASCII 


/0/<57>/U/ 


ASCII 


/.RE/ 


ASCII 


/CV / 


ASCII 


/RIN/ 


ASCII 


/G R/ 


ASCII 


/EAD/ 


ASCII 


/ IN/ 


ASCII 


/CON/ 


ASCII 


/SIS/ 


ASCII 


/TEN/ 


ASCII 


/Ct/<00> 


ASCII 


<00> 


ASCII 


/*N*/ 


ASCII 


/A IF/ 


ASCII 


/TLE/ 


ASCII 


/RR-/ 


ASCII 


/ UN/ 


ASCII 


/KNO/ 


ASCII 


/UN / 


ASCII 


/WAI/ 


ASCII 


/TRV/ 


ASCII 


/ REV 


ASCII 


/ASO/ 


ASCII 


/N A/ 


ASCII 


/T D/ 


ASCII 


/,RV/ 


ASCII 


/CT/<00> 


ASCII 


<00* 


ASCII 


/*N*/ 


ASCII 


/a$f / 


ASCII 


/n f / 


ASCII 


/RR-/ 



ZRCHB2 

REV B PATCH 00 



ZRCHBO RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



IV 

5-Apr-1984 13:19:09 

5-Apr-19«4 13:16:08 



SF.Q 0066 
VAX-11 Bliss-16 V3-55S Poq* 42 

SPIDER*USERSi[NEALE.AZTEC]ZRCHB2. 816*5 (13) 



007556 

007561 

007564 

00756 7 

00757;? 

007575 

00/600 

00 7605 

007606 

007611 

00 7614 

00 7617 

00 /62c"? 

00/625 

00/650 

007633 

007636 

007641 

007644 

00764 7 

00765? 

007655 

00 7660 

007663 

007666 

007671 

007674 

0076 7 7 

00 7 70? 

007 705 

007710 

007713 

007716 

007/21 

007 724 

001??.'? 

007732 

007 735 

00/740 

007 74 3 

00/746 

007751 

00/754 

00/75/ 

00/76? 

00 7/65 

007/70 

00/ /73 

007/76 

oioooi 

010004 
01000/ 
01001? 
010015 

oioo?o 

0100?* 

010026 



040 

101 

123 

HI 

116 

040 

116 

103 

123 

124 

116 

116 

132 

105 

045 

101 

124 

122 

040 

12. 

113 

117 

104 

105 

040 

040 

114 

1C1 

124 

103 

045 

101 

124 

122 

040 

110 

124 

116 

040 

101 

104 

040 

111 

040 

111 

104 

045 

101 

124 

122 

040 

110 

1?4 

116 

040 

101 

104 



104 
122 
040 

104 
117 
106 
104 
114 
105 
040 
101 
105 
117 
000 
116 
044 
114 
122 
125 
105 
040 
125 
040 
105 
124 
111 
105 
114 
12? 
113 
116 
044 
114 
122 
125 
124 
040 

in 

104 

107 
115 
12/ 
124 
106 
114 
000 
116 
044 
114 
12? 
125 
124 
040 
111 
104 
10/ 
115 



056 

103 

104 

040 

124 

111 

040 

117 

123 

125 

117 

040 

116 

000 

045 

106 

105 

055 

056 

105 

106 

116 

123 

113 

117 

114 

107 

040 

101 

000 

045 

106 

105 

055 

056 

123 

111 

124 

HI 

040 

101 

12? 

105 

101 

105 

000 

045 

106 

105 

055 

056 

1?J 

111 

1?4 

111 

040 

101 



P.ADP; 



P.ADQ; 



P. ADR: 



.ASCII 


/ D./ 


.ASCII 


/ARC/ 


.ASCII 


/S 0/ 


.ASCII 


/ID / 


.ASCII 


/NOT/ 


.ASCII 


/ ¥1/ 


.ASCII 


/NO / 


.ASCII 


/CLO/ 


.ASCII 


/SES/ 


.ASCII 


/T U/ 


.ASCII 


/NDO/ 


.ASCII 


/NE / 


.ASCII 


/ZON/ 


.ASCII 


/E/<CO-»<00> 


.ASCII 


/#N*/ 


.ASCII 


/AIF/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ U./ 


.ASCII 


/SEE/ 


.ASCII 


/K F / 


.ASCII 


/OUN/ 


.ASCII 


/D 5/ 


.ASCII 


/EEK/ 


.ASCII 


/ TO/ 


.ASCII 


/ IL/ 


.ASCII 


/LEG/ 


.ASCII 


/AL / 


.ASCII 


/TRA/ 


.ASCII 


/CK/<00> 


.ASCII 


/*N*/ 


.ASCII 


/AtFV 


.ASCII 


/TIE/ 


.ASCII 


/RR / 


.ASCII 


/ u./ 


.ASCII 


/HTS/ 


.ASCII 


/T 1/ 


.ASCII 


/NIT/ 


.ASCII 


/ 01/ 


.ASCII 


/At; / 


.ASCII 


/DMA/ 


.ASCII 


/ UH / 


.ASCII 


/TIE/ 


.ASCII 


/ FA/ 


.ASCII 


/II f •' 


.ASCII 


/O/ *00><00> 


.ASCII 


/»N*/ 


.ASCII 


/Atf '/ 


.ASCII 


/u I / 


.ASCII 


/RR ■/ 


.ASCII 


/ U . / 


.ASCII 


/HTS/ 


.ASCII 


/I I' 


.ASCII 


/NIT/ 


.ASCII 


/ 01/ 


.ASCII 


/Ad / 


.ASCII 


/DMA/ 



J/ 



ZRCHB2 

REV P PATCH 

010031 

010054 
01003/ 
01004 c? 
01004? 
0100 r >0 



oioos;? 

010055 

010060 
010063 
010066 
010071 
0100 74 
01007 7 
010102 
010105 
010110 
010115 
010116 
010121 
010124 

01012/ 
01013;? 

010135 
010140 

010142 
010145 
010150 
010155 
010156 
010161 
010164 
01016/ 
0101/2 
010175 
010200 
010205 
01 0206 
O 1 02 1 1 
010214 
010216 
010220 
010222 
010224 
010226 
010230 
010252 
Ol 02 34 
010236 
01 0240 
0»0242 
010244 
010246 
010250 
ol02*V 
o 10254 
010256 



00 

040 
115 
122 
106 
114 
000 
045 
101 
124 
122 
040 
123 
122 
117 
104 
123 
105 
123 
040 
104 
123 
120 
116 
040 
124 
045 
101 
124 
122 
040 
123 
122 
122 
105 
101 
11/ 
123 
122 
104 
004 /56' 
005016' 
005064' 
005152' 
005200' 
005264 ' 
005350' 
0054 16' 
00546V 
0055 52 
i H) 56 00 
005650' 
005/^0 
005 7/4 
006060 
006140 1 
006206' 
006254 



ZRChdO 
GLOBAL 

103 
120 
105 
101 
105 
000 
116 
044 
114 
122 
125 
151 
040 
125 
040 
056 
122 
105 
101 
040 
056 
116 
117 
123 
000 
116 
0*4 
114 
122 
115 
124 
040 
111 
125 
103 
040 
125 
124 
000 



RC25 
TEXT 



DISK f-ORMATTER 
SECTION 

117 

101 
040 
111 
104 



045 
106 
105 
055 
056 
104 
106 
116 
125 
104 
040 
124 
116 
125 
125 
040 
124 
105 

045 
106 

105 
055 
101 
105 
104 
126 
040 
114 
101 
105 
105 
000 



P. ADS; 



P.ADT: 



P.ACU: 





5 Apr- 1984 13:19:09 




5-Apr-1964 13:16:06 


.ASCII 


/ CO/ 


.ASCII 


/MPA/ 


.ASCII 


/RE / 


.ASCII 


/KAI/ 


.ASCII 


/LEO/ 


.ASCII 


<00><00> 


.ASCII 


/#N#/ 


.ASCII 


/A$F'/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ u./ 


.ASCII 


/SYD/ 


.ASCII 


/R F / 


.ASCII 


/OUN/ 


.ASCII 


/D 5/ 


.ASCII 


/s.rv 


.ASCII 


/ER / 


.ASCII 


/st r/ 


.ASCII 


/ AN/ 


.ASCII 


/D 5/ 


.ASCII 


/s.s/ 


.ASCII 


/PN / 


.ASCII 


/NOT/ 


.ASCII 


/ St/ 


.ASCII 


/T/*00> 


.ASCII 


/#N»/ 


.ASCII 


/AM"/ 


.ASCII 


/RE/ 


.ASCII 


/RR / 


.ASCII 


/ MA/ 


.ASCII 


/STE/ 


.ASCII 


/R 0/ 


.ASCII 


/RIV/ 


.ASCII 


/ES / 


.ASCII 


/AC! / 


.ASCII 


/O A/ 


.ASCII 


/SSE/ 


.ASCII 


/RTf / 


.ASCII 


/0/«00><00> 


.WORD 


P.ACH 


.WORD 


P.ACI 


.WORD 


P.ACJ 


.WORD 


P.ACK 


.WORD 


P.ACI 


.WORD 


P. ACM 


.WORD 


P.ACN 


. WORD 


P.ACO 


.WORD 


P.ACP 


. WORD 


P.ACO 


. WORD 


P.ACR 


.WORD 


P.ACS 


. WORD 


P.ACI 


.WORD 


r . acu 


.WORD 


P.ACv 


. WORD 


P.A(,W 


.WORD 


t- ,o/2 . v 


,WQRD 


C . v ■' v ' 



SEQ 008 7 
VAX 11 Bl!s<j 16 V5 555 Peoe 43 

SPIDERJUSERS^NEALE. AZTEC)Z,7CW02,B16;5 ( 13; 



REV B PATCH 



010260 

010262 

010264 

010266 

010270 

010272 

010274 

010276 

010300 

010502 

010304 

010306 

010310 

010312 

010314 

01031b 

010320 

010322 

010324 

010326 

010330 

010332 

010335 

010340 

010343 

010346 

010351 

010352 

010355 

010360 

01036 3 

010366 

010371 

010374 

010376 

010401 

010404 

01040/ 

010412 

010415 

010420 

010423 

010426 

010431 

0104 34 

1 04 3 / 

01044 > 

01044_> 

010450 

010453 

01045b 

010461 

0104b4 

01046/ 

0104/2 

0104/5 

010500 



00 



v>?> 



ZRCHBO 
GLOBAL 



RC25 DISK K1RMATTF.R 
TfcXT SECTION 



006574' 
006444' 
006524' 
006574' 
006644' 
006 716' 
007006' 
007070' 
007150' 
007224' 
007300' 
007342 
007400' 
007464' 
007542' 
007630' 
007710' 
0077/0* 
010052' 
010142' 
045 
123 
103 
123 
114 
000 
045 
116 
114 
040 
115 
116 
116 
045 
11/ 
105 
117 
101 
111 
102 
045 
045 
117 
105 
117 
123 
124 
114 
116 
045 
122 
122 
040 
124 
116 
116 



101 
125 
105 
106 
045 

101 
126 
111 
103 
115 
104 
000 
101 
040 
10 7 
11* 
126 
114 
114 
116 
101 
040 
107 
lib 
125 
101 
105 
000 
101 
117 
101 
116 
040 
11/ 
045 



040 
103 
123 
125 
116 

111 

101 
104 
117 
101 
045 

116 
122 
HI 
040 
101 
101 
105 
000 
116 
122 
111 
040 
111 
102 
04 5 
000 
120 
10/ 
115 
11/ 
115 
12/ 
116 



P.ADV 



P.ADW; 



P.ADX 



P.AOY 



P ♦ ADZ : 





. - r\:'T ■ 


1984 13:19:09 




.-.-Apr 


-1904 13 $16: 08 


.WORD 


P.ACZ 




.WORD 


P. ADA 




.WORD 


P.ADB 




.WORD 


P. ADC 




.WORD 


P. ADD 




.WORD 


P.ADF 




. WORO 


P.ADF 




.WORD 


P.ADG 




.WORD 


P . ADH 




.WORD 


P.AD1 




.WORD 


P. AD J 




.WORD 


P.ADK 




.WORD 


P . ADl. 




. WO'-tD 


P. ADM 




.WORD 


P.ADN 




.WORD 


P. ADO 




.WORD 


P.ADP 




.WORD 


P.ADQ 




.WORD 


P. ADR 




.WORD 


P. ADS 




.WORD 


P.ADT 




.ASCII 


/MA / 




. ASCII 


/sue/ 




.ASCII 


/CES/ 




.ASCII 


/SFU/ 




.ASCII 


/LMN/ 




.ASCII 


<00> 




.ASC/I 


/MAI/ 




ASCII 


/NVA/ 




. KSClI 


/LID/ 




.*vCII 


/ CO/ 




..V-.'.II 


/MMA/ 




,h *•:.-£: 


/NO*/ 




.ascji 


/N/<00> 




,At:i\ 


/MAN/ 




. AH-., xr 


.'0 R/ 




.2. *■":■ 


/F.C',1/ 




.; S'/U 


/ON / 




.Aseyi 


* AVA/ 




/sea 


. LA/ 




.ascj.?: 


/.JLF/ 




.ASC"' ■. 


.'MN/*0O> 




.A:-C, 


/MAN/ 




.->:/: I j 


/O R/ 




,as;..;t 


/FGI/ 




.;or.j.x 


/ON / 




.M'.CU 


/ r > j r / 




.ASCII 


.• • AH/ 




.ASCII 


•1 t:#/ 




.ASCII 


/N/<00><00> 




.A5L/.I 


/MAP/ 




.ASCII 


/ROli/ 




.A^.CII 


/RAM/ 




.ASCII 


/ NO/ 




.ASCII 


/T K/ 




.ASCII 


/NOW/ 




.ASCII 


/NMN/ 





SF.Q 0088 
VAX 11 Bliss -16 V3 555 Page 44 

SPIDER*US6RSi[NEALE. AZTEC URCHB2,B16j5 (13; 



7RCH62 

REV B PATCH 



00 



010503 

010504 

01050/ 

010512 

010515 

010520 

010525 

010526 

010531 

010534 

01053 7 

010542 

010545 

01C546 

010550 

010552 

010554 

010556 

010560 

010562 

010564 

010567 

010572 

010575 

010600 

010603 

010606 

01061.1 

010614 

010617 

010622 

010624 

01062 7 

010632 

010635 

010640 

010643 

010646 

010650 

010653 

010656 

010661 

010664 

01066/ 

010672 

010675 

010 700 

010703 

010 706 

010711 

010714 

010/16 

010721 

010724 

010/27 

010 732 

010735 



000 
045 
117 
040 
111 
122 
116 
045 
124 
104 
117 
04 5 
000 
010332' 
010352' 
010376' 
010426' 
0104 56' 
010504* 
010526' 
045 
125 
105 
045 
04 5 
116 
114 
040 
115 
116 
116 
045 
117 
101 
040 
117 
105 
116 
04b 
116 
055 
106 
116 
116 

045 

116 
055 
101 
101 
105 
000 
045 
105 
101 
11/ 
101 
105 



ZRCHeo RC25 
GLOBAL TEXT 



DISK f-ORMATTER 
SECTION 



101 
101 
106 
114 
105 
000 
101 
101 
101 
116 
116 



101 
103 
123 
116 
101 
126 
1 11 
103 
115 
104 
000 
101 
115 
116 
101 
122 
104 
000 
101 
111 
117 
114 
105 
000 
101 

111 

101 

111 

102 
04 5 
000 
101 
104 
040 
122 
124 

122 



114 

104 
101 
125 
045 
000 
123 
116 
114 
105 
000 



123 
103 
123 
000 
HI 
101 
104 
117 
101 
045 

103 
115 
104 
102 
124 
045 

125 
124 

106 
111 
045 
OOO 
125 
124 
126 
114 
114 
116 

115 

111 
106 
115 
040 
122 



P.AEA: 



P . AEB : 



P.ADU: 



P.AED: 



P.AEE: 



P.AEF; 



P . AEG : 



P.AEHj 



P.AEI: 



5-Apr-1984 13:19;09 
5-Apr-19ti4 13:16:03 



SEQ 0089 
VAX-11 Dliss-16 V3 555 Page 45 

SPIDER*USERS![NEALE,AZTEC]ZRCHB2.B16j5 (13) 



ASCII 


<00> 


ASCII 


/*Al./ 


ASCII 


/OAD/ 


ASCII 


/ FA/ 


ASCil 


/ILU/ 


ASCII 


/RE*/ 


ASCII 


/N/<00><00> 


ASCII 


/*AS/ 


ASCII 


/TAN/ 


ASCII 


/DAL/ 


ASCII 


/ONE/ 


ASCII 


/*N/<00> 


ASCII 


<00> 


WORD 


P.ADV 


WORD 


P.ADW 


WOF.O 


P.ADX 


WORD 


P.ADY 


WORD 


P. ADZ 


WORD 


P.AEA 


WORD 


P. AEB 


ASCII 


/*AS/ 


ASCII 


/UCC/ 


ASCII 


/ESS/ 


ASCII 


/*N/<00> 


ASCII 


/*AI/ 


ASCII' 


/NVA/ 


ASCII 


/LID/ 


ASCII 


/ CO/ 


ASCII 


/MMA/ 


ASCII 


/NO*/ 


ASCII 


/N/<00> 


ASCII 


/*AC/ 


ASCII 


/OMtt/ 


ASCII 


/AND/ 


ASCII 


/ AB/ 


ASCII 


/ORT/ 


ASCII 


/ED*/ 


ASCII 


/N/<00> 


ASCII 


/*AU/ 


ASCII 


/Nir/ 


ASCII 


/■■OF'/ 


ASCII 


/R.I/ 


ASCII 


/NEK/ 


ASCII 


/N/<00*<00> 


ASCII 


/*AU/ 


ASCII 


/NIT/ 


ASCII 


/-AV/ 


ASCII 


/Alt./ 


ASCII 


/Afll./ 


ASCII 


/E*N/ 


ASCII 


<00><00> 


ASCII 


/MAM/ 


ASCII 


/EDI/ 


ASCII 


/a v/ 


ASCII 


/OHM/ 


ASCII 


/AT / 


ASCII 


/ERR/ 



M7 



ZRCHBJ 




ZRCHBO 


RC25 DISK FORMATTER 




5 -Apr -1984 


13:19:09 


REV B PATCH 00 


GLOBAL 


TEXT SECTION 






5-Apr-1984 


13:16:08 


010740 


117 


122 


045 




.ASCII 


/OR*/ 




010 74 3 


116 


000 


000 




.ASCII 


/N/<00><00> 




010746 


045 


101 


127 


P , AE J { 


.ASCII 


/*AW/ 




010751 


122 


111 


124 




.ASCII 


/RIT/ 




010754 


105 


040 


120 




.ASCII 


/E P/ 




010757 


122 


117 


124 




.ASCII 


/ROT/ 




010762 


105 


103 


124 




.ASCII 


/F.CT/ 




010765 


)rt r 


104 


045 




.ASCII 


/ED*/ 




010770 


lit. 


000 






.ASCII 


/N/<00> 




01077c? 


04 L* 


101 


103 


P , AEK : 


.ASCII 


/*AC/ 




010775 


117 


115 


120 




.ASCII 


/OMP/ 




011000 


101 


122 


105 




.ASCII 


/ARE/ 




011003 


040 


105 


122 




.ASCII 


/ u-V 




011006 


122 


117 


122 




.ASCII 


/ROR/ 




011011 


045 


116 


000 




.ASCII 


/*N/<00> 




011014 


045 


101 


104 


P. ALL: 


.ASCII 


/HAD/ 




011017 


101 


124 


101 




.ASCII 


/ATA/ 




011022 


040 


105 


122 




.ASCII 


/ ER/ 




011.025 


122 


117 


122 




.ASCII 


/ROR/ 




011030 


045 


116 


000 




.ASCII 


/*N/<00> 




011033 


000 








.ASCII 


<00> 




011034 


045 


101 


110 


P.AEM: 


.ASCII 


/*AH/ 




011037 


117 


123 


124 




.ASCII 


/OST/ 




011042 


040 


102 


125 




.ASCII 


/ BU/ 




011045 


106 


106 


105 




.ASCII 


/FFE/ 




011050 


122 


040 


101 




.ASCII 


/R A/ 




011053 


103 


105 


105 




.ASCII 


/CCFV 




011056 


123 


123 


040 




.ASCII 


/ss / 




onoei 


1C5 


122 


122 




.ASCII 


/ERR/ 




011064 


117 


1 "i ^ 


045 




.ASCII 


/OR*/ 




01106/ 


116 


000 


000 




.ASCII 


/N/<00w00> 




011072 


045 


101 


103 


P.AEN; 


.ASCII 


/*AC/ 




011075 


117 


116 


124 




.ASCII 


/ONT/ 




01\ 100 


122 


117 


114 




.ASCII 


/ROL/ 




011103 


114 


105 


122 




.ASCII 


/LER/ 




OlUOt. 


040 


105 


122 




.ASCII 


/ ER/ 




011111 


122 


117 


122 




.ASCII 


/ROR/ 




011114 


04 5 


116 


000 




ASCII 


/*N/<00> 




011U7 


000 








.ASCII 


<00> 




011120 


045 


101 


104 


P.AEO: 


.ASCII 


/HAD/ 




011123 


122 


111 


126 




.ASCII 


/RIV/ 




011126 


105 


040 


105 




.ASCII 


/t: e/ 




011131 


122 


122 


117 




.ASCII 


/RRO/ 




011134 


122 


045 


116 




.ASCII 


/R*N/ 




01113/ 


000 








.ASCII 


<00> 




011140 


045 


101 


115 


P.AEP: 


.ASCII 


/*AM,' 




011143 


105 


123 


123 




.ASCII 


/ESS/ 




011146 


101 


10/ 


105 




.ASCII 


/AGF / 




01115?. 


040 


106 


122 




.ASCII 


/ FR/ 




011154 


11/ 


115 


040 




.ASCII 


/OM / 




01115/ 


101 


116 


040 




.ASCII 


/AN / 




011102 


111 


116 


124 




.ASCII 


/INT/ 




01116!. 


105 


122 


lit* 




.ASCII 


/ERN/ 




011170 


101 


114 


040 




.ASCII 


/Al / 




0111/3 


104 


111 


101 




.ASCII 


/DIAZ 




Olll ,'6 


107 


llo 


11/ 




.ASCII 


/(.NO/ 




011201 


123 


124 


111 




.ASCT1 


/STI/ 





SEQ 0090 
VAX- 11 Bliss -16 V3-555 Page 46 

SPIDER$USERSj[NEALE.AZTEC]ZRCHB2.B16j5 C13.I 



N7 



ZRCHB2 

REV B PATCH 



00 



ZRCHBO RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



011204 
011207 
011210 
011212 
011214 
011216 



011224 

011226 
011230 
011232 
011234 
011236 
011240 
011242 
011245 
011250 
011253 
011256 
011261 
011264 
011267 
Oil? 72 
011274 
011277 
011302 
011305 
011310 
011313 
011316 
011321 
011324 
011327 
0U332 
011335 
011340 
011343 
011346 
011351 
011352 
011355 
011360 
011363 
011366 
0113/1 
011374 
01137/ 
011402 
011405 
011410 
01141 ^ 
011416 
011421 
011424 
01142/ 
011432 



103 
000 
010564' 
010600' 
010624' 
010650' 
010672' 
010716' 
010746' 
010772' 
011014' 
011034' 
011072' 
011120' 
011140' 
105 
105 
104 
105 
115 
104 
131 
131 
000 
045 
101 
040 
104 
111 
101 
125 
124 
124 
106 
115 
040 
101 
122 
116 
000 
045 
101 
124 
122 
040 
111 
103 
105 
105 
116 
122 
040 
105 
117 
12 7 
106 
114 



045 



116 



116 
122 
101 
040 
115 
104 
131 
076 
000 
116 
116 
101 
111 
117 
114 
116 
123 
117 
117 
101 
055 
102 
124 
107 

116 

044 
114 
122 
111 
124 
117 
040 
055 
124 
105 
104 
040 
040 
122 
10i 
000 



124 
040 
124 
074 
055 
055 
131 
040 

045 
117 
104 
124 
116 
040 
111 
040 
040 
122 
124 
040 
117 
111 
000 

045 
106 
105 
055 
116 
(40 
104 
122 
105 
105 
104 
125 
124 
120 
040 
111 



r\A£C: 



P.AEQ; 



P.AER: 



P.AES: 







5-Apr-1984 


13:19:09 






S-Apr>19ti4 


13sl6:08 


ASCII 


/C*N/ 






ASCII 


<00> 






WORD 


P.AED 






WORD 


P.AEE 






WORD 


P , AF>" 






WORD 


P.AF.G 






WORD 


P.AEH 






WORD 


P.AEI 






WORD 


P.AEJ 






WORD 


P.AEK 






WORD 


P.AEl. 






WORD 


P. ACM 






WORD 


r* . AEN 






WORD 


P.AEO 






WORD 


P.AEP 






ASCII 


/ENT/ 






ASCII 


/ER / 






ASCII 


/DAT/ 






ASCII 


/E </ 






ASCII 


/MM-/ 






ASCII 


/DO-/ 






ASCII 


/YYY/ 






ASCII 


/Y> / 






ASCII 


'OOxOO* 






ASCII 


/#N*/ 






ASCII 


/ANO/ 






ASCII 


/ AD/ 






ASCII 


/DIT/ 






ASCII 


/ION/ 






ASCII 


/AL / 






ASCII 


/UNI/ 






ASCII 


/TS / 






ASCII 


/TO / 






ASCII 


/FOR/ 






ASCII 


/MAT/ 






ASCII 


/ - / 






ASCII 


/ABO/ 






ASCII 


/RTI/ 






ASCII 


/NG/<00> 






ASCII 


<00> 






ASCII 


/*N*/ 






ASCII 


/A$F/ 






ASCII 


/ru;/ 






ASCII 


/RR / 






ASCII 


/ IN/ 






ASCII 


/IT / 






ASCII 


/ceo/ 






ASCII 


/E R/ 






ASCII 


/E-E/ 






ASCII 


/NTEV 






ASCII 


/RED/ 






ASCII 


/ DU/ 






ASCII 


/E T/ 






ASCII 


/O P/ 






ASCII 


/WR / 






ASCII 


/f AI/ 






ASCII 


/l/<00> 







SEQ 0091 
VAX-11 Bliss-16 V3-555 Page 47 

SPIDER$USERS;[NEALE.AZTEC]ZRCHB2,B16}5 CIS; 



Btt 



JRCHB2 




7RCHH0 


RC25 DISK fOHMATTER 




5-Apr-1984 


15:19:09 


R^V H MATCH OO 


GLOBAL 


TEXT SECTION 






5 Apr -1904 


15:16:08 


011454 


045 


116 


045 


P . At T j 


.ASCII 


/«Nft/ 




01145.' 


101 


044 


10b 




.ASCII 


/AIF/ 




011442 


124 


114 


105 




.ASCII 


/tie/ 




01144S 


UV 


122 


055 




.ASCII 


/RR-/ 




011450 


040 


101 


102 




.ASCII 


/ AB/ 




011455 


117 


12? 


124 




.ASCII 


/ORT/ 




011456 


111 


116 


107 




.ASCII 


ZING/ 




011461 


040 


110 


1W 




.ASCII 


/ HO/ 




011464 


125 


124 


04 




.ASCII 


/ST / 




011467 


101 


116 


104 




.ASCII 


/AND/ 




Cn* 72 


040 


122 


105 




.ASCII 


/ RE/ 




01147S 


115 


1W 


124 




.ASCII 


/MOT/ 




011500 


105 


040 


120 




.ASCII 


/E P/ 




OU505 


UV 


11/ 


107 




.ASCII 


/ROG/ 




011506 


122 


101 


115 




.ASCII 


/RAM/ 




011511 


125 


000 


000 




.ASCII 


/5/<00><00> 




011514 


045 


116 


045 


P.AF.U* 


.ASCII 


/#N*/ 




01151/ 


101 


044 


106 




.ASCII 


/AIF/ 




011522 


124 


114 


105 




.ASCII 


/TIE/ 




011525 


122 


122 


055 




.ASCTI 


/RR / 




011550 


040 


HI 


114 




.ASCII 


/ 11/ 




011555 


114 


105 


107 




.ASCII 


/LEG/ 




011556 


101 


114 


040 




.ASCII 


/AL / 




011541 


116 


125 


115 




.ASCII 


/NUM/ 




011544 


102 


105 


122 




.ASCII 


/BER/ 




011547 


O40 


11/ 


106 




.ASCII 


/ (X / 




011552 


040 


125 


116 




.ASCII 


/ UN/ 




011555 


ill 


124 


125 




.ASCII 


/ITS/ 




011560 


040 


125 


105 




.asci; 


/ St/ 




011565 


1 .4 


105 


105 




.ASCII 


/LEC/ 




011566 


lc^4 


105 


104 




.ASCII 


/TED/ 




011571 


000 








.ASCII 


«00> 




0115 7? 


045 


116 


045 


P.AEVt 


.ASCII 


/#N*/ 




0115/5 


101 


044 


106 




.ASCII 


/AM / 




011600 


124 


114 


105 




.ASCII 


/TIE/ 




011605 


12? 


122 


055 




.ASCII 


/RR / 




011606 


040 


114 


111 




.ASCII 


/ LI/ 




oneii 


115 


111 


124 




.ASCII 


/MIT/ 




011614 


040 


117 


106 




.ASCII 


/ Of / 




01161/ 


040 


125 


111 




.ASCII 


/ SI/ 




011622 


150 


124 


105 




.ASCII 


/XTfc/ 




011625 


105 


116 


040 




.ASCII 


/EN / 




011650 


125 


116 


111 




.ASCII 


/UNI/ 




011655 


124 


125 


040 




.ASCII 


/TS / 




011656 


120 


105 


122 




.ASCII 


/PFR/ 




011641 


040 


106 


11/ 




.ASCII 


/ *0/ 




011644 


12? 


115 


101 




.ASCII 


/RMA/ 




011647 


124 


111 


116 




.ASCII 


/TIN/ 




01165c" 


107 


040 


125 




.ASCII 


/G 5/ 




011655 


105 


125 


123 




•ASCII 


/ESS/ 




0116^)0 


111 


117 


116 




.ASCII 


/ION/ 




011665 


000 








.ASCII 


<00- 




011664 


045 


116 


045 


P.AfcW; 


.ASCII 


/#N*/ 




0116o/ 


101 


044 


106 




.ASCII 


/au / 




0116/2 


124 


114 


105 




.ASCII 


/TIE/ 




0116,", 


122 


12? 


055 




.ASCII 


/RR / 




011/00 


040 


UZ 


105 




♦ASCII 


■ RC/ 





VAX- 11 Bli«« 16 V5-555 Pao« 48 

SPlOtRIUSERS : [ NEALE , AZTEC ]ZRCH62*&16 i5 C 13 ) 



c« 



tROtt).? 




/RCH00 


RC25 DISK K)RMATTER 






REV B PATCH 00 


GLOBAL 


TEXT SECTION 






011/05 


062 


065 


040 


.ASCII 


/25 / 


011706 


103 


117 


116 


.ASCII 


/CON/ 


011711 


124 


122 


117 


.ASCII 


/TRO/ 


011714 


114 


114 


105 


.ASCII 


/LLF/ 


011717 


122 


040 


111 


.ASCII 


/R 1/ 


01172..? 


116 


111 


124 


.ASCII 


/NIT/ 


011725 


111 


101 


il4 


.ASCII 


/IAL/ 


011730 


111 


132 


101 


.ASCII 


/I7A/ 


011733 


124 


111 


117 


.ASCII 


/TIO/ 


011736 


116 


040 


105 


.ASCII 


/N E/ 


011741 


122 


12*. 


117 


.ASCII 


/RRO/ 


011744 


122 


000 




.ASCII 


/R/<00> 


011746 


045 


116 


045 P.AEX; 


.ASCII 


/*N*/ 


011751 


101 


044 


106 


.ASCII 


/A*F/ 


011754 


124 


114 


105 


.ASCII 


/TLE/ 


011757 


122 


122 


055 


.ASCII 


/RR-/ 


011762 


040 


120 


122 


.ASCII 


/ PR/ 


011765 


117 


124 


117 


.ASCII 


/OTO/ 


011770 


103 


117 


114 


.ASCII 


/COL/ 


011773 


040 


126 


111 


.ASCII 


/ VI/ 


011776 


117 


114 


101 


.ASCII 


/OLA/ 


012001 


124 


111 


117 


.ASCII 


/TIO/ 


012004 


116 


040 


105 


.ASCII 


/N E/ 


01200 7 


122 


122 


117 


.ASCII 


/RRO/ 


012012 


122 


000 




.ASCII 


/R/<00> 


012014 


045 


116 


045 P.AEYt 


.ASCII 


/#N*/ 


012017 


101 


044 


106 


.ASCII 


/A«F/ 


012022 


124 


114 


105 


.ASCII 


/TLE/ 


012025 


122 


122 


055 


.ASCII 


/RR / 


012030 


040 


103 


117 


.ASCII 


/ CO/ 


012033 


115 


115 


125 


.ASCII 


/MMU/ 


01 X)36 


116 


111 


103 


.ASCII 


/NIC/ 


012041 


101 


124 


111 


.ASCII 


/ATI/ 


012044 


117 


116 


040 


.ASCII 


/ON / 


012047 


101 


122 


105 


.ASCII 


/ARE/ 


012052 


101 


040 


111 


.ASCII 


/A 1/ 


012055 


116 


111 


124 


.ASCII 


/NIT/ 


012060 


040 


105 


122 


.ASCII 


/ ER/ 


012063 


122 


117 


122 


.ASCII 


/ROM/ 


012066 


000 


000 




.ASCII 


<00><00> 


012070 


045 


116 


045 P.AfcZ: 


.ASCII 


/*N#/ 


012073 


101 


044 


106 


.ASCII 


/Air/ 


012076 


124 


114 


105 


.ASCII 


/TLE/ 


012101 


122 


122 


055 


.ASCII 


/RR / 


012104 


040 


104 


125 


.ASCII 


/ ou/ 


01210^ 


120 


040 


123 


.ASCII 


/P s/ 


012112 


105 


122 


126 


.ASCII 


/ERV/ 


012115 


105 


122 


040 


.ASCII 


/ER / 


012120 


101 


103 


124 


.ASCII 


/ACT/ 


012125 


111 


126 


105 


.ASCII 


/IVE/ 


012126 


040 


101 


106 


.ASCII 


/ Af / 


012131 


124 


105 


122 


.ASCII 


/TRR/ 


012134 


040 


111 


116 


.ASCII 


/ IN/ 


012137 


111 


124 


111 


.ASCII 


/HI/ 


01214;. 


101 


114 


111 


.ASCII 


/ALI/ 


0121 '5 


152 


111 


116 


.ASCII 


//IN/ 


012150 


107 


000 




.ASCII 


/G/<00> 



5-Apr~1964 13: 19 : 09 
5-Apr-19ti4 13tl6i08 



=kQ 0093 
VAX 11 Bliss- 16 V5 555 Paoe 49 

SPlDERfUSERSt(NEAl£,AZTFX]ZRCH32 4 B16j5^(13j 



!)8 



7RCH62 




zrchbo 


RC25 DI! 


REV B PATCH 00 


GLOBAL 


TEXT SE( 


012152 


045 


116 


045 


012 155 


101 


044 


106 


012160 


124 


114 


105 


012163 


122 


122 


055 


012166 


040 


104 


125 


012171 


120 


040 


123 


012174 


105 


122 


126 


01217 7 


105 


122 


040 


012202 


111 


116 


101 


012205 


103 


124 


ill 


012210 


126 


10^ 


040 


012213 


101 


lOo 


124 


012216 


105 


122 


040 


012221 


105 


130 


137 


012224 


123 


125 


120 


012227 


137 


120 


122 


012232 


117 


107 


040 


012235 


103 


117 


115 


012240 


115 


101 


116 


012243 


104 


000 


000 


012246 


105 


116 


124 


012251 


105 


122 


040 


012254 


106 


103 


124 


012257 


040 


106 


111 


012262 


114 


105 


040 


012265 


116 


101 


115 


012270 


105 


040 


124 


012273 


117 


040 


122 


012276 


105 


123 


124 


012301 


117 


122 


105 


012304 


040 


050 


106 


012307 


111 


114 


105 


012312 


116 


101 


115 


012315 


105 


056 


105 


012320 


130 


124 


051 


012323 


072 


040 


000 


012326 


122 


103 


062 


012331 


065 


040 


040 


012334 


111 


120 


040 


012337 


040 


040 


122 


012342 


105 


107 


111 


012345 


123 


124 


105 


012350 


122 


040 


040 


012353 


040 


101 


10* 


012356 


104 


122 


1?5 


012361 


123 


123 


OCO 


012364 


122 


103 


062 


012367 


065 


040 


111 


012372 


116 


124 


105 


012375 


122 


122 


125 


012400 


120 


124 


040 


012403 


126 


105 


103 


012406 


124 


117 


122 


012411 


040 


101 


104 


012414 


104 


122 


105 


01241 / 


123 


123 


000 


012422 


122 


103 


062 



KJRMATTfcR 



P.AFAj 



P.AFB: 



P.AKCi 



P.AFO: 



P.AFEj 





5-Apr-1984 13119(09 




5-Apr-19tt4 13{16:0d 


, ASCII 


/*N*/ 


.ASCII 


/A$F/ 


.ASCII 


/TLE/ 


.ASCII 


/RR-/ 


.ASCII 


/ DU/ 


.ASCII 


/P s/ 


.ASCII 


/ERV/ 


.ASCII 


/ER / 


.ASCII 


/INA/ 


.ASCII 


/CTI/ 


.ASCII 


/VE / 


.ASCII 


/AFT/ 


.ASCII 


/ER / 


.ASCII 


/EX / 


.ASCII 


/SUP/ 


.ASCII 


/ PR/ 


.ASCII 


/6g / 


.ASCII 


/COM/ 


.ASCII 


/MAN/ 


.ASCII 


/D/<00><00> 


.ASCII 


/ENT/ 


.ASCII 


/ER / 


.ASCII 


/FCT/ 


.ASCII 


/ FI/ 


.ASCII 


/LE / 


.ASCII 


/NAM/ 


.ASCII 


/e iv 


.ASCII 


/O R/ 


.ASCII 


/EST/ 


.ASCII 


/ORE/ 


.ASCII 


/ (F/ 


.ASCII 


/ILE/ 


.ASCII 


/NAM/ 


.ASCII 


/E.E/ 


.ASCII 


/XT)/ 


.ASCII 


/: /<00> 


.ASCII 


/RC2/ 


.ASCII 


/5 / 


.ASCII 


/IP / 


.ASCII 


/ M/ 


.ASCII 


/EGI/ 


.ASCII 


/STE/ 


.ASCII 


/R / 


.ASCII 


/ AD/ 


.ASCII 


/ORE/ 


.ASCII 


/ss/<oo> 


.ASCII 


/RC2/ 


.ASCII 


/5 1/ 


.ASCII 


/NTE/ 


.ASCII 


/RRU/ 


.ASCII 


/PT / 


.ASCII 


/VEC/ 


.ASCII 


/TOR/ 


.ASCII 


/ AD/ 


.ASCII 


/ORE/ 


.ASCII 


/ss/«oo> 


•ASCII 


/RC2/ 



SEQ 0094 
VAX-U PI J»«-16 V3-555 Paa* 50 

SPXDER$USt:RSs[NEALE.AZTEC)ZRCHB2.B16i5^13j 



E8 



2RCHB2 

REV B PATCH 00 



ZRCmo RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



5-Apr-1984 13 5 19i09 
5-Apr-19B4 13}16j08 



SEQ 0095 
VAX-11 Bliss-16 V3-555 Page 51 

SPIDER*USERSt[NEALE.AZTEC)ZRCHB2.B16|5 (13) 



012425 
012450 
01243? 
012436 
012441 
012444 
012447 
012452 
012455 
012460 
012463 
012466 
012471 
012474 
012477 
012502 
012505 
012510 
012513 
012516 
012521 
012524 
012527 
012532 
012535 
012540 
012543 
012546 
012551 
012554 
012557 
012562 
012565 
012570 
012573 
012576 
012601 
012604 
012607 
012612 
012615 
012620 
012623 
012626 
012631 
012634 
012637 
012642 
012645 
012650 
012652 
012655 
012660 
012663 
012666 
012671 
0126 74 



065 
040 
125 
040 
105 
105 
040 
114 
105 
125 
124 
116 
102 
040 
040 
111 
040 
116 
116 
106 
115 
040 
040 
101 
105 
105 
122 
117 
101 
115 
105 
045 
101 
052 
052 
052 
052 
052 
052 
052 
117 
103 
052 
052 
052 
052 
052 
052 
052 
000 
045 
101 
040 
117 
122 
117 
115 



040 
040 
123 
040 
121 
123 
040 
105 
114 
116 
040 
125 
105 
124 
102 
116 
040 
114 
105 
117 
101 
HI 
125 
124 
116 
104 
105 
122 
124 
117 
000 
116 
052 
052 
052 
052 
052 
052 
052 
040 
124 
105 
052 
052 
052 
052 
052 
052 
052 
000 
116 
040 
040 
120 
101 
122 
125 



040 
102 
040 
122 
125 
124 
040 
126 
000 
111 
040 
115 
122 
117 
122 
107 
117 
111 
000 
122 
124 
116 
116 
124 
104 
040 
106 
115 
040 
104 
000 
045 
052 
052 
052 
052 
052 
052 
052 
116 
111 
040 
052 
052 
052 
052 
052 
052 
052 

045 
040 
040 
105 
124 
040 
123 



P.AFF: 



P.AFG; 



P.AFH; 



P.AFIi 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
■ ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



/5 / 
/ B/ 

/US / 

/ R/ 

/EQU/ 

/EST/ 

/ / 

/LEV/ 

/EL/<00> 

/UNI/ 

/T / 

/NUM/ 

/BER/ 

/ TO/ 

/ BR/ 

ZING/ 

/ 0/ 

/NLI/ 

/NE/<00> 

/FOR/ 

/MAT/ 

/ IN/ 

/ UN/ 

/ATT/ 

/ENO/ 

/ED / 

/REF/ 

/ORM/ 

/AT / 

/MOO/ 

/E/<00><00> 

/*N*/ 

/A**/ 

/***/ 

/♦♦*/ 
/***/ 

/*♦♦/ 

/♦♦*/ 

/♦**/ 

/* N/ 

/OTI/ 

/CE / 

/*♦*/ 

/**♦/ 

/**♦/ 

/***/ 

/**♦/ 

/*♦*/ 

/♦♦♦/ 

<00><00> 

/*N#/ 

/A / 

/ / 

/OPE/ 
/RAT/ 

/OR / 
/MUS/ 



ZRCHB2 

REV B PATCH 00 

012677 124 

012702 105 

012705 122 

01271C 105 

012713 040 

012716 040 

012721 124 

012724 104 

012727 040 

012732 104 

012735 000 

012736 045 
012741 101 
012744 040 
012747 040 
012752 125 

012/55 111 

012760 040 

012763 040 

012766 055 

012771 124 

012774 104 

012777 040 

013002 106 

013005 115 

013010 C40 

013013 104 



000000 
000000 

000050 

000052 

000054 

000056 

000456 

000736 

001736 

002316 

002430 

002450 

002452 

002466 



ZRCH80 RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



F8 

5-Apr-1984 13:19:09 
5-Apr-19«4 13:16:08 



SEQ 0096 
VAX-11 BLiss-16 V3-555 p a <je ^2 

SPIDER*USERS;[NEALE.AZTEC]ZRCHB2,B16j5 (13) 



040 
040 
105 
116 
111 
101 
105 
105 
115 
105 

116 
040 
040 
040 
116 
116 
111 
125 
101 
105 
105 
122 
117 
101 
115 
105 



102 
120 
123 
124 
116 
124 
116 
104 
117 
040 

045 
040 
040 
122 
116 
107 
116 
116 
124 
116 
104 
105 
122 
124 
117 
000 



.ASCII 


/T B/ 




.ASCII 


/E P/ 




.ASCII 


/RES/ 




.ASCII 


/ENT/ 




.ASCII 


/ IN/ 




.ASCII 


/ AT/ 




.ASCII 


/TEN/ 




.ASCII 


/DED/ 




.ASCII 


/ MO/ 




.ASCII 


/DE / 




.ASCII 


<00> 




P.AFJ: .ASCII 


/*N*/ 




.ASCII 


/A / 




.ASCII 


/ / 




.ASCII 


/ R/ 




.ASCII 


/UNN/ 




.ASCII 


ZING/ 




.ASCII 


/ IN/ 




.ASCII 


/ UN/ 




.ASCII 


/-AT/ 




.ASCII 


/TEN/ 




.ASCII 


/DED/ 




.ASCII 


/ RE/ 




.ASCII 


/FOR/ 




.ASCII 


/MAT/ 




.ASCII 


/ MO/ 




.ASCII 


/DE/<00> 




.PSECT 


*GL0B*. RO . 


D 


COM .AREA:: 






.BLKW 


24 




HE AD. AREA:- 






.BLKW 


1 




RECEIVE. RING: : 






.BLKW 


1 




SEND. RING: : 






.BLKW 


1 




REC. ENVELOPE:: 






.BLKW 


200 




SND.ENVEl OPE: : 






.BLKW 


130 




FCT.BUf": : 






.BLKW 


400 




REC. BL"T. : 






.BLKW 


170 




SND.BU*-': : 






.BLKW 


45 




OUTISTO.BUf- ■; : 






.Bl KW 


10 




RE T. EN $ AD: : 






.BLKW 


1 




DATETXT: : 






.BLKW 


6 




FLG.WRD:: 






.BLKW 


1 





GBL 



ZRCHB2 

REV B PATCH 00 

C02470 

002472 

002474 



0024 76 000000 

002500 
002502 

002506 

002510 

002512 

002514 

002516 

002520 

002522 

002524 

002526 
002530 
002532 
002534 

002536 
002540 
002542 
002544 
002546 
002550 
002552 



ZRCHBO RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



003777 

000000 
003400 
0037/7 
007777 

111033 
010222 
000010 
023433 
000000 
043777 
177400 



000126' 
000154' 

000140' 
O0O011' 
000140' 
000154' 

oooooo- 

000006' 
000076' 
000204 ' 
00027C 1 



G8 

5-Apr-l984 13:1.9:09 
5-Apr-l984 13:16:06 



SEQ 0097 
VAX-11 Blisa-16 V3-555 p aQ * 53 

SP IDER $ USERS : [ NE ALE . AZTEC ] ZRCHB2 . B 16 : 5 C 13 ) 



NEX.FLAG:: 




.BLKW 


1 


OVSA:: .BLKW 


1 


NXT.CRN:: 




,BLKB 


1 


.EVEN 




RET. STATUS: : 




.WORD 





LUN: : .BLKW 


1 


PID.SAVE: : 




.BLKW 


2 


NSD.SLOT:: 




.BLKW 


1 


NRO.SLOT:: 




.BLKW 


1 


RC25.ADDR:: 




.BLKW 


1 


VEC.ADDR:: 




.BLKW 


1 


BR. LEVEL:: 




.BLKW 


1 


UNIT. NO:: 




.BLKW 


1 


PTBL.PTR:: 




.BLKW 


1 


RSVD. STRUCT:: 




.WORD 


3777 


.WORD 





.WORD 


3400 


.WORD 


3777 


ISO. STRUCT:: 




.WORD 


7777 


.WORD 


-66745 


.WORD 


10222 


.WORD 


MINGBASE 


.WORD 


23433 


.WORD 





.WORD 


43777 


.WORD 


-400 


.GLOBL 


LISOFT. TtPTH 


.GLOBL 


LICLEAN, LU.A 


. GLOBL 


LiDESC, L*DU, 


LIERRTBL-- 


ERRTYP 


LISW-- 


t $SWLEN»2 


L*HW-- 


LIHWLEN>2 


l.$0£PO»» 


l$REV*l 


DFPTBL-- 


L$HWLEN»2 


SFPTBL-- 


L fSULFN»2 


FMU-* 


P. AAA 


FMT2-- 


P.AAB 


FMT3*« 


P.AAC 


FMT4«» 


P.AAD 


F«T5*« 


P.AAE 



', LIRPT. L$INIT 
IT, LfHARD, L.IOVTYP 
L$AU, L$AUT0. Tl 



ZRCK82 

REV 6 PATCH 00 

000400' 
000476' 
000544' 
000646' 
000652' 
000010' 
001740* 
002660' 
004660' 
010214' 
010546' 
011210' 
011242* 
011274* 
011352' 
011434* 
011514' 
011572' 
011664' 
011746' 
012014' 
012070' 
012152' 

012246' 
012326' 
012364' 
012422' 
012460' 
012516' 
012562' 
012652' 
012736' 



ZRCH60 RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



H8 

5-Apr-1984 13:19:09 
5-Apr~1984 13:16:08 



SEQ 0098 
VAX-11 Bliss-16 V3-555 Page 54 

SPIDER$USERS}[NEALE,AZTEC)ZRCHB2,B16} , 5 (13; 



FMT6-- 


P.AAF 


FMT7-* 


P.AAG 


PID.FMT-- 


P . AAH 


CRLF-- 


P.AAI 


XCRLF-- 


P.AAJ 


RINGBASE-- 


COM. AREA. 10 


MSGADR-- 


REC.BUF*2 


PFE.STRUf.T-- 


P.AAK 


EMSG. STRUCT - - 


P.ABI 


RC. STRUCTURE - • 


P.ACG 


SOUP. STRUCT - - 


P.ADU 


SMSCP. STRUCT-- 


P.AEC 


OATMSG-- 


P.AEQ 


NO. ADD. UNITS-- 


P.AER 


PWR.MSG-- 


P.AES 


A80.MSG-- 


P.AET 


TO. MANY. UNITS-- 


P.AEU 


GOOD. NUM. UNITS- - 


P.AEV 


BOOT. FAILURE - » 


P.AEW 


PROTO. VIOLATION-- 


P.AEX 


PORT.INIT.ERR-- 


P.AEY 


ACTIVE, UUP. SERVER-- 


P.AEZ 


INACTIVE. DUP. SERVER 


■ ■ 




P.AFA 


FCT.REQ.MSG-- 


P.AFB 


HW.Q1.IP-- 


P. AFC 


HW.Q2.VECT0R-- 


P.AFD 


HU.Q3.BR-* 


P.AFE 


HW.Q4.WIT-- 


P.AFF 


SW.Q1.UNATT-- 


P.AFG 


SW. Q2. NOTICE-- 


P.AFH 


SW.Q3.0PEM-- 


P.AFI 


SW.Q4.UNAYT-- 


P.AFJ 



Psect Name 
AASCODE 
*GLOB* 
SPLIT* 



PSECT SUMMARY 



Words 


Attributes 








59 


RO . I . 


LCL, 


RF.t.. 


CON 


694 


RO , D , 


c;bl. , 


RKL. , 


CON 


2823 


RO , . 


GBL» 


REL, 


CON 



LIBRARY STATISTICS 



File 



. - ...._.. Symbols 

Total Loaded Percent 



SPlDbR$USERS:[N£ALE.A2TEClZRCHB0.Li6ia 



39e 



176 



44 



BlocUs 
Read 



42 



18 



ZRCHB*? 

REV B PATCH 00 



ZRCH60 RC25 DISK FORMATTER 
GLOBAL TEXT SECTION 



S-Apr-1984 13:19:09 
5~Apr-19tt4 13:16:08 



SF.Q 0099 
VAX-11 BlIss-16 V3-555 Page 55 

SPIDER*USERS:[NEALE.AZTEC]ZRCH82.B16;5 (13 J 



BLISS /PDP11/LIST ZRCHBP.B16 



COMMAND QUALIFIERS 



Size; code ♦ 3576 data words 
Run Timet 00:25.5 
Elapsed Ttme: 02:03.2 
Memory Used: ?09 pages 
Comp J lot i on Complete 



J 8 



ZRCHB3 



0001 

000? 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

C010 

0011 

001? 

0013 

0014 

0015 

0016 

1505 

1506 

150/ 

1508 

1509 

1510 

1511 

151? 

1513 

1514 

1515 

1516 

1517 

1516 

1519 

1520 

1521 

15 J? 

1525 

1524 

1525 

1526 

152/ 

1528 

1529 

1530 

1531 

1532 

1531 

1534 



ZRCHBO RC25 DISK KURMATTSP 



5-Apr~1984 13;33j45 
5-Apr-19«4 13 { 31:29 



5EQ 0100 
VAX-11 BHss-16 V3-555 Poo* 1 

SPIDER $USERS:[NtALE. AZTEC J/RCHB3. 816} 5 CI) 



MODULE ZRCH83 (*TITLE • ZRCHBO RC25 DISK FORMATTER 

1DENT - 'REV B PATCH 00' . 

ADDRESSING.. MODE (RELATIVE) , 

ENVIRONMENT (NOEIS) 

) - 
BEGIN 
*sbttl 'MODULE DECLARATIONS 4 

Pretty Declarations 

<BLF/l.OUERCASE„KEY> 



library • ZRCHBO' j 
require ' BLSMAC.REQ* i 



.'Define RC25 Library module 
•Define Bliss Macro Library 



Structure declarations used within this module. 



structure 



RC25 register accessing structure. This 
structure allows RC25 register accessing 
to be transportable between the PDP-11 and 
VAX Diagnostic Supervisors. 

This alco defines an access algorithm for 
VAX to allow field reference to M8A acdresc 
space without generating machine checks. 



RC25 {0, P, S, E) - 
begin 

local 

RC$S.REUj 

ROS..REG « ,(RC25 ♦ Kupval*0)<0, tfbpval, 0>$ 

RCJS.. Rf.fi 

end 

<P. S, E>; 

!<blf/page> 



ZRCHB5 

REV B PATCH 00 

1535 
1536 
1537 

1538 
1539 
1540 
1541 
154 c> 
1543 
1544 
1545 
1546 
154 7 
154H 
1549 
1550 
1551 
155c' 

lbS3 



ZRCHBO RC25 DISK f-ORMATTER 
MODULE DECLARATIONS 



l<8 

5 -Apr -1984 13; 33; 45 
5-Apr-1984 13:31:29 



SEQ 0101 
VAX-ll Biiss-16 V3-555 Page 2 

SPIDER*U5ERS:[NEALE.AZT£C"JZRCHB3.B16;5 C2) 



The psect named "code or lcode$" is redefinded here 
to be colled "aaicode". This is done to force the tkb 
linker to place the programs header information starting 
at absolute address 2000. Then for consistency "alcode" 
is used inplace of "code or $code" across all modules. 



psect 

code 



aoJcode; 



External Routine declared outside this module. 



©sternal routine 

DECODE : novolue, 
LOAD .FILE; 



! <blf/page> 



ZRCHB3 

REV B PATCH 00 



1554 

1555 
1556 
1557 
1558 
1559 
1560 
1561 
156? 
15b3 
1560 
1565 
1566 
1567 
1568 
156S 
1570 
15/1 
1572 
1573 
1574 
1575 
1576 
15/7 
1578 
1579 
1580 
?.581 
1582 

ises 

1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
159c? 
1593 
1594 
15'?!i 
15S6 
1597 
1596 
1599 
1600 
1601 
160? 
1602 
1604 
1605 
1606 
160/ 
1608 
1609 
1610 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



L..8 

5 Apr -1984 13:33:45 
5-Apr-19«^ 13:31:29 



SEQ 0102 
VAX -11 Bliss-16 V3-555 Page 3 

SPIDER JUSERS : [ NEALE . AZTEC 1ZRCHB3 . B 16 > 5 ( 3 ) 



! External Declaration of datums declared outside of this module 

externa 1 

DM load file from local media definitions 



DM.FNSEXT, 
A2FMTR ; vector [3989, word], 
UVSA : word, 

Hardware question asc i i string messages 

HW Q1_IP. 

HW_Q2_VECT0R, 
HW Q3 BR, 
HW U4_UNIT. 



J DM file name asc i i text 

♦DM host buffer adrs 

! Overlay section starting adrs 



!H/W question 1 for IP reg address 

!H/W question 2 for interrupt vector address 

IH/W question 3 for bus req level 

!H/W question 4 for unit no. to format 



Software question asc i i string messages 

SW Ql UNATT, 
SW..Q2_N0TICE, 
SW U3 OPER, 
SW. .04. ..UNATT, 

Formatting print string 

FMT2, 
KMT3, 
CRLF, 
XCRLF, 

In i t ode error and informational messages 

NO„ADD_UNITS. 
PWR..MSG, 

ABO.MSG, 
T0_MANY UNITS, 
GOOD. NUM.. UNITS, 
DATMSG, 



JUnattended reformat software question 
! Not i ce message 

! Operator must be present in this mode 
.'Running In unattended mode 



•Notifies unit being formatted 

JNotifies format abort 

! <CR><LF> 

! Prints ten <CR><LF> 



Miscellaneous external data declarations 

Fl.G_.WRD : bitvector [161, 

I UN : byte, 

PTBL_PTR : ref vector [4, word), 

UATETXT : vector [12, byte]. 



Supervisor defined data declarations 

L.IUNIT. 

Hardware P_Table storage declarations 

RC."?5,ADDR : ref RC2S field CISDJ r IELD), 
VtC.ADDR i word, 



IMessage to ask operator for date 

{Global flag word 

J storage for operator date input 



ZRCHB3 

REV B PATCH 00 



1611 
161? 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
16,20 
1621 



M8 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



5-Apr-l984 13:3?;4^ 
5-Apr-19B4 13:31:29 



BR_LEVEL 
UNITING 



word, 
word, 



Software question response storage declarations 
SW_UNATT : word, 

Formatter data structures 
ISD_STRUCT : blockvcctor L4, 2, word] field CISD.FIELD); 



SF.Q 0103 
VAX-H Bli.*s-16 V3-555 Page 4 

SPIDER*USERSj[NEALE. AZTEC ]ZRCHB3.B16*5 (3) 



/RCHU5 

RKV B PATCH 



00 



1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 



N8 



ZRCHBO RC25 DISK FORMATTER 
TrPE AND DESCRIPTION 

Ksbttl 'TYPE AND DESCRIPTION 

Two lines of text will be 

program name). The first 

up time rod will identify 

the "DEVTYPE" macro ot 

device undtr test. The arugments of bcth 

asc I i strings enclosed in parenthesises? 



r >-Apr-1984 13:33:45 
5-Apr-19«4 13:31:29 



SEQ 0101 
VAX -11 Bliss-16 V3-555 Page 

SPIDER $USERS : [ NEALE . AZTEC 1ZRCHB3 . B16 ; 5 ( 4 ) 



printed to the operator (in addition to the 
will come froM the "DESCRIPT" macro at start 
the diagnostics. The second will come from 
hardware dialogue time and will identify the 

macros are 72 character 



DESCRIPT C^asci-r'RC2 c "> DISK FORMATTER' >: 
DEVTYP (*asciz'RC25 DISK DRIVE SUBSYSTEM') 



ZRCH65 




REV B 


PATCH 00 


• 


1635 


i 


1634 




1635 




1636 




1637 


} 


1636 


5 


1639 


I 


1640 




1641 




164? 




1643 




1644 




164S 




1646 


I 


164 7 



B9 



ZRCM60 RC25 DISK FORMATTER 
HARDWARE PARAMETER COOING 



5-Anr-1984 
5 Apr -1934 



*ebttl 'HARDWARE PARAMETER CODING' 
♦ 
Th» hardware parameter coding eection containe mecrot 
that are ueed by the euoervleor to build P~Tablee. The 
m«crot art not executed a* machine instruction* but arc 
interpreted by the eupervieor ae da\:a etructurea. Tha 
macroa alio* tha auparviaor to establish communications 
with tha operator. 



BGNMROj 

GPRMA (HW,Q1 IP, ao'O', 0, ao' 16000* , *V 

GPRMA (KW_Q? VECTOR, a© , 2', 0, 4, *o' 774' 

GPRMO (HW„Q3 BR, *o'4 . 0, •©* 17777'/', 0, 

GPRMO (HW„Q4„UNIT t #o'6*. D, *©' 177777' ( 

ENOHRDj 



SFQ 010*) 
13i33i45 VAX-ll Bliee-16 V3-S55 Pao« 

13} 31 j 29 SPIDER JUSER5}[NEALE, AZTEC ]/RCHB3.B16| 5 C5) 



TES. 



177/77' 
, YES, l)j 
'/» YES, l)j 



l)j !Gat RC25 Controller \P register 
!Gat RC25 Interrupt Vector address 
JGat RC25 Bus Reooeat Priority 
0, ^dacifflal'aSS' , YES, i)i !Get unit number to format 



/RCHB3 

REV B PATCH 00 



1648 
1649 
1650 
1651 

165? 
1653 
1654 
1655 
1656 
1657 
1658 
1659 



ZRCHBO RC25 DISK FORMATTER 
SOFTWARE PARAMETER CODING SECTION 

*sbttl 'SOFTWARE PARAMETER CODING SECTION' 



C9 

5 Apr -1984 

5-Apr-1984 



„ mm SEQ 0106 

13i33j45 VAX-11 Bliss 16 VS-555 Paoa 

13: 31 i29 SPIDER IU5ERSj[NEALE, AZTEC JZRCH83,B16i5 (6) 



Th« software parameter cod i no stction contain* macros 
that art used by tha aupervi«or to build P -Tables. Tha 
macros ar% not exacuted as machine instruct! one but are 
interpreted by tha supervisor aa data atructuraa, Tha 
macros allow tha supervisor to establish communications 
m! th the operator. 



BGNSFTj 

GPRML (SW.Q1 UNATT, 

ENDSFTj 



0, 1, YES, l)t 



D9 



ZRCH63 

REV B PATCH 00 



1660 
1661 

1662 
1665 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
167? 
1673 
1674 



ZRCH60 RC25 DISK f-ORMATTER 
REPORT CODING SECTION 

Ksbttl 'REPORT CODING SECTION' 



5-Apr~1984 
5-Apr-1984 



13:33:45 VAX-11 Bliss-16 V3 355 ^P^ge 7 

13:31s29 SPIDER$USERS;[NEAL£ 4 AZTEC]ZRCHB5.ei6$5 (7) 



o 



The statistical report coding section contains the PRINTS macros that 
will be used to generate statistical reports. Tha 'BGNRPT' and 'ENDRPT 
macros ara usad as begining and anding directives for the coding con 
tained in tha sactlon. However, an externally located DORPT call, or 
a print command from the operator, may be used to request the execu- 
tion of the report coding. 

BGNRPT; 

return; 

Report summary coding is remote program driven 
ENDRPTj 



.TITLE ZRCH63 ZRCHBO RC25 DISK FORMATTER 
.IDENT /REV B / 



000000 
0O00O0 
000003 
000006 
000011 
000014 
000017 
000022 
000024 
000026 

000031 
000034 
000037 
000042 
00004 5 
000053 
000053 
000056 
000060 
000062 

000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000104 
000106 
O00110 
000112 
O00114 
000116 



122 
065 
111 
040 
122 
124 
122 

122 

065 
111 
040 
111 
040 
102 
123 
115 

ooooooc 

000031 

OOOOOOG 

016000 

177777 

001031 

OOOOOOG 

000004 

000774 

002032 

OOOOOOG 

177777 

000000 

000007 

003052 



103 
040 
123 
106 
115 
124 
000 

103 

040 
123 
104 
126 
123 
123 
124 
000 



062 
104 
113 
117 
101 
105 



062 

104 
113 
122 
105 
125 
131 
105 



LIDESC: 



LSDVTYP; 



l SHRDLN: 
OP II i 



GPI2: 



GP$3ji 



GP*4j 



.PSECT AAJCODE, RO 

.ASCII /RC2/ 

.ASCII /5 0/ 

.ASCII /ISK/ 

.ASCII / FQ/ 

.ASCII /RMA/ 

.ASCII /TTE/ 

.ASCII /R/<00> 

.BLKB 2 

^ASCII /RC2/ 

.ASCII /5 D/ 

.ASCII /ISK/ 

.ASCII / DR/ 

.ASCII /IVE/ 

.ASCII / SU/ 

.ASCII /BSV/ 

.ASCII /STE/ 

.ASCII /M/<00> 

.BLKB 2 

.WORD <<<L*NDHRD-L$HRDLN>/a>-l> 

.WO^D 31 

.WORD HU.Q1.IP 

.UORO 16000 

.WORD -1 

.WORD 1031 

.WORD HW.Q2. VECTOR 

.WORD 4 

.WORD 774 

.WORD 2032 

.WORD HW.Q3.BR 

. WORD 1 

.WORD 

.WORD 7 

.WORD 3052 



ZRCH63 

REV B PATCH 00 



000120 
000122 
000124 
000126 
000130 



000134 
000136 
000140 
000142 



OOOOOOG 
17777? 
000000 
000375 



OOOOOOC 

000 ISO 

OOOOOOG 

000001 



ZRCHBO RC25 DISK FORMATTER 
REPORT CODING SECTION 



.WORD 
.WORD 
.WORD 
.WORD 

UNDHRD: : 

.BLKW 

LISFTLN:: 

.WORD 

GP*5:: .WORD 
.WORD 
.WORD 

L*NDSn*:: 

.BLKW 



E9 

5-Apr-1984 13:33;45 
5-Apr-19tt4 13}3l:29 



SEQ 0108 
VAX-11 Bl.99-16 V3-555 Paoe 9 

SPIDER $USERS:[NEALE. AZTEC JZRCHB3.B16 j 5 (7) 



HW.Q4.UNIT 

-1 



375 



<<<L$NDSFT-L*SFTLN>/2>-l> 

130 

SW.Q1.UNATT 

1 



GLOBL DECODE, LOAD. FILE, AZFMTR, OVSA 

GL06L HW.Q1.IP, HW.Q2, VECTOR, HW.Q3.BR 

GL06L HW. Q4. UNIT, 5W.Q1.UNATT, SW.Q2. NOTICE 

GLOBL SW.Q3.0PER, SW.Q4.UNATT, FMT2 

GL06L FMT3, CRLF, XCRLF , NO. ADD. UNITS 

GLOBL PWR.MSG, ABO.MSG, TO. MANY UNITS 

GL06L GOOO. NUM. UNITS, DATMSG, FLG.WRD 

GLOBL LUN, PTBL.PTR, DATETXT, LiUNIT 

GLOBL RC25.A0DR, VEC.ADDR, BR. LEVEL 

GLOBL UNIT, NO, SW.UNATT, ISO, STRUCT 



000064 
000134 



LJHARD-- 
L$S0FT«« 



L$HRDLN*2 

L$SFTLNf2 



000000 OC0207 

: Routine Size; 1 word, 



Maximum stack depth per invocation: words 



.SBTTL LRPT REPORT CODING SECTION 
LRPT: RTS PC 

Routine Base: AA$CQDE ► 0144 



1659 



000000 004767 177772 
000004 104425 
000006 000207 



Rout ine 
Max i mum 



5 ize: 
stack 



4 words, 
d«pth per 



LJRPT 



Routine Base: 
invocation: 2 words 



.SBTTL 

JSR 

TRAP 

RTS 



LSRPT REPORT 

PC, LRPT 

25 

PC 



CODING SECTION 



1670 



AAJCQDE ♦ 014b 



ZRCH63 

REV B PATCH 00 



1675 

1676 

167 7 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1607 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1696 

1699 

1700 

1701 

170? 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

172? 

1728 

1729 

1730 

1731 



ZRCH60 RC25 DISK FORMATTER 
INITIALIZE SECTION 

lisbttl 'INITIALIZE SECTION 
BGNINIT} 



F9 

5-Apr-1984 
b-Apr-1984 



13:33:45 
13:31:29 



SEQ 0109 
VAX-11 Bliss-16 V3-555 Page 10 

SPIDER *USERS:[NEALE, AZTEC ]ZRCKB3.B16; 5 C8) 



The in i t ial izat ion code is executed at the beginning of every 
sub -Pass and is primarily used for reoutsting P_TabJ.es, Any 
other set-up type functions may also be performed in the in it 
code. 

The initialize code is executed under five conditions. There 
are supervisor event flags that are used to let the diagnostic 
knoH under which condition the execution is taking place. The 
event flags are read using the "READEF" macro. 



The conditions under which the 
corresponding event flags are: 

START COMMAND 
RESTART COMMAND 
CONTINUE COMMAND 
POWERDOWN/POWERUP 
NEW PASS 

Example of event flag use: 



in it code is executed and the 



EF*. START 

EF. RESTART 
EF. CONTINUE 
Ef.PWR 
EF.NEW 



if REAOEFCEK. START) then 
START.FLAG * 1; 



First read the event flag EF_PWR to see if this inlt code is being 
performed due to a system power fail. If it is then report the 
Incident to the operator and abort the DM machine and further execution 
of this program. 



if READEF (EF PWR) 

then 

begin 

PRINTS (PWR MSG): 

PRINTS CAB0_MSG)t 

WRT^RC25 (RCIF, 0NES)j 

DOCLN; 

end; 



•Is the PWR event flag set 

J Report the incident and abort 
•Power fall print message 
•Aborting program message 
•Abort DM code execution 
J Abort further program execution 



See if the DRS commands START or RESTART were used to start 
this formatting session. If either of them were used then 
start ths formatting session at logical unit zero, 

if (READEF (EF^START)) or (READEF (EF ^RESTART ) ) JDid start of restart get us here 
then 

begin 
i 

! Check the operator for triing to format 
.» more than the defined limit. If they 



ZRCHB3 




REV 8 


PATCH 00 




.1732 




1733 




1734 




1735 




1736 




1737 




1738 




1739 




1740 




1741 




1742 




1743 




1744 




1745 




1746 




1747 




1748 




1749 




1750 




1751 




1752 




1753 




1754 




1755 




1756 




1757 




1758 




1759 




1760 




1761 




1762 




1763 




1764 




1765 




1766 




1767 




1768 




1769 




1770 




1771 




1772 




1773 




1774 




1775 




1776 




1777 




1778 




1779 




1780 




1781 




1782 




1783 




1784 




1785 




1/86 




1/87 




1788 



ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 

! are then report the error and die. 



if ,L*UNIT gtru LSLIMH 
then 

begin 

PRINTB (TO MANY_UNITS)i 

PRINTB (GO0D..NUM UNITS) ; 

DOCLNj 

end; 



G9 

5 -Apr -1984 13 {33:45 
5-Apr-1984 13:31:29 



SEQ 0110 
VAX-11 Bliss-16 V3-555 Page 11 

SPIDER$USERS;[NEALE.AZTEC]ZRCHB3.B16;5 C8) 



! Is the Formatting limit exceeded 



! Report the error 
•Tell him/her the limit 
!6o to cleanup and die 



Test to see If this host code is to run in UNATTENDED REE0RMT MODE. 
If it is then ask the operator for the date If not then tell the 
operator that an operator must be present during this formatting, 

if >SU UNATT 
then 

begin 

Clear out the date text buffer before loading in date. 

incr i from to 11 do 

DATETXT [.!]- ZEROS; 

GMANID CDATMSG. DATETXT, A, rfo' 177777' , 8. 10, NO); JGet date from operator 

PRINTB CSW Q2„N0TICE){ IPrint notice message 

PRINTB CSW_Q4_UNATT); 'Report running in ATTENDED mode 

end 



else 



PRINTB CSW Q2_N0TTCE); 
PRINTB CSWlQ3_0PER); 

end; 



•Print notice message 

•Tell operator he/she must be present 



! Everything looks good so far, move on and get the 
! hardware question responses and save them. 



LUN * -1; 
do 



beg i n 

LUN - .LUN ♦ 1; 

If .LUN gequ .LJUNIT then DOCI.N; 



.•Start formatting at logical unit 

•Up pointer to next logical unit to GPHARD 
•End host code if no logical units 



until CGPHARD (.LUN, PTBL„PTR)) nequ ZERO- {Repeat GPHARD's until P_Table adrs retimed 

Get the P . Table parameters for this unit and go format it, 
RC25_ADDR * .PTBL^PTR [wrdO]j 'Load up the controllers base adcires 



ZRCHB3 

REV B PATCH 00 



1789 

1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
182/ 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 



ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 



-19 



5-Apr~1984 13:33:45 
5 -Apr -1984 13:31:29 



SbQ 0111 
VAX-11 Bliss-16 V3-555 Page 12 

SPIDERJUSERS: [NEALE. AZTEC ]ZRCHB3.B16s5 C8) 



VEC„ADDR - .PTBL„PTR fwrdlli 'load up the controllers vector address 

ISD_STRUCT [BLKO, URD1. S1W_VADR] * ,VEC_ADDR/4 } JV2.0 

BR_LEVEL ■ .PTBL^PTR [wrdSli ILoad up the controllers bus request 

UNIT.NO - ,PTBL_PTR [wrd3lt 'Load up the unit number to format 

Before leaving the In It code section h« must first do some house keep'ng 
left behind from the ISD^STRUCT preset declaration. The adopter purge interrupt 
bit must be defined for the type machine this formatter is running under. 

f tfbliss (bl>ssl6) 'Define compiler 

then 

ISD_STRUCT [BLK1, URD1, S2W_PI] » ZERO !No purging for PDP-11 
else 

ISD.STRUCT [BLK1, WRD1, S2W_PI] - ONE ; {Purging for VAX-11 



This commented code will load an external copy of the formatter from 

the local load media into azkel6 module space starting at AZFMTR : VECTOR [ .word] 



Now load In the RC25 formatter DM code from the local boot device 
into the blank buffer allocated in azkel6, Report load error »f 
an error code is returned. 

The DM code will only be r^o>d in during start! or restarts of the 
host code. Block irero of the the DM .sav file will thrown out. 



f L0AD_FILE (AZFMTR, DM^FNfEXT. DM_SIZE) then DECODE Oj 



Now calculate the overlay sections starting address and store the result 
in global location '0VSA' for future reference. 

This takes the 0M buffer starting adrs and adds to It the number of bytes 
in the (initial load ♦ remote program header size) resulting in the first 
adrs of the overlay sect tori. 



else 



0VSA • AZFMTR f (.AZFMTR [WRD0])j 
end 

begin 



JCalculate overlay start adrs 



! The continue flag set will cause the current units formatting to be 

! aborted. The ne*t sequential logical unit will then be formatted, 
j 

If READEF (EF CONTINUE) 
then 

begin 

i 

! End this Host code if this . lun is the the last logical unit to format 
! Else do another GPHARD macro to get the nest logical unit to format. 



7RCHB5 

REV B PATCH 00 



1846 
184 7 
1848 
1849 
1850 
1851 
1852 
185? 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
18 71 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1694 
1895 



ZPCH60 RC25 DISK FORMATTER 
INITIALIZE SECTION 



PRINTB CFMT3, . LUN , .UNIT N0){ 
WRT„RC25 (RCIP, ONES}; 

if C .LUN ♦ 1) gequ .L$UNIT 
then 

PRINTB (NO_ADD_UNlTS)j 
DOCLN { 
end j 

end} 



19 

5-Apr-1984 13;33:45 
5-Apr-1984 13:31:29 



SEQ 0112 
VAX-11 Bliss-16 V3-555 Pa^e 13 

SPIDER*USERS:[NEALE.AZTECURCHB3,B16;5 (8) 



•Report thi9 luns format was aborted 
J Abort this current unit9 formatting 



! Report no more unit to format 



The new pass event fl«Q set means that all logical units hove 
been formatted. Therefore end this host code and return to DS>. 



if READEF (EF.NEW) then DOCLN; 



!New pass means all units formatted 



Repeat doino GPHARDS until a non-zero value is returned or all logical units 

have been G J HARD'ed, End this host code if all logical units have been formatted. 



do 



beg in 

LUN * .LUN * 1; 

if ,LUN gequ .LiUNIT then DOCLN; 
end 



!Up pointer to next logical unit 

jEnd the host if all logical units GPHARD'ed 



until (GPHAR0 (.LUN, PTBL^PTR)) nequ ZEROj 'Repeat until a P_table adrs is returned 

Get the P„Table parameters for this unit and go format it. 

RC25_ADDR - .PTBL_PTR [wrdOlj !Load up the controll s base addres 

VEC_ADDR - .PTBL_PTR [wrdllj 'Load up the controllers vector address 

J50_STRUCT [BLK0, WRDl, Slw^vADR] - .VEC.ADOR/4} JV2.0 

BR_LEVEL - .PTBL^PTR I wrd2 1 j JLoad up the controllers bus request 

UNIT_N0 - ,PTBL_PTR [wrd31i "Load up the unit number to format 

end; 



Tell the operator which RC25 controller is being initialized this pass. 

PRINTB (XCRLF)j .'Space between each formatting pass 

PRINTB (FMT2, .PTBL_PTR I WRDO ] ) j 

ENDINITj 



000000 
000004 
000010 
000012 



00416/ 
012/00 
10444/ 
103023 



000000G 
000034 



.SBTTL LINIT INITIALIZE SECTION 

LIN1T: JSR R1,*SAVE2 

MOV 034.R0 

TRAP 4 7 

BHIS 1$ 



lo'4 

i r i l 



J 9 



ZRCH63 

REV B PATCH 00 



000014 
000020 
000024 
000026 
000030 
000034 
000040 
000042 
000044 
000050 
000054 
000056 
000062 
00O066 
000070 
000072 
000076 
000100 
000102 
000 110 
00011? 
000116 
000122 
0OO124 
000126 
000132 
0OO136 
000140 
000142 
000144 
000150 
000156 
000160 
000162 
000166 
000170 
000174 
000176 
000200 
000202 
000204 
000206 
000210 
000212 
000214 
000216 
000222 
000226 
000230 
000232 
000236 
000242 
000244 
000246 
000250 
000254 
000260 



012746 

010600 

104414 

012716 

012746 

010600 

104414 

012700 

010077 

104444 

062706 

012700 

104417 

103404 

012700 

104447 

103167 

026727 

101417 

012746 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

104444 

062706 

032767 

001434 

005000 

105060 

005200 

020027 

003772 

10444 3 

000406 

OOOOOOG 

000142 

OOOOOOG 

177777 

000010 

000012 

012746 

012746 

010600 

104414 

012716 

012746 

010600 

104414 

000414 

012746 

012/46 

010600 



ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 

OOOOOOG 
000001 



OOOOOOG 
000001 



177777 
OOOOOOG 

000006 
000040 



5~Apr-1984 13:33:45 
5-Apr-l984 13:31:29 



SEQ 0113 
VAX-11 Bliss-16 V3 555 Paoe 14 

SPIDER*USERS:[NEALE,AZTEC]ZRCHB3.B16j5 C8) 



000037 



OOOOOOG 000020 

OOOOOOG 
000001 



OOOOOOG 
000001 



000006 

000001 OOOOOOG 



OOOOOOG 
000013 



OOOOOOG 
000001 



OOOOOOG 
000001 



OOOOOOG 
000001 





MOV 


*PWR.MSG, CSP) 




MOV 


♦1,-CSP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


OABO.MSG.CSP) 




MOV 


01, -CSP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


♦-1.R0 




MOV 


R0<aRC25.ADDR 




TRAP 


44 




ADD 


06, SP 


1*: 


MOV 


$40, RO 




TRAP 


47 




BCS 


2$ 




MOV 


437.R0 




TRAP 


47 




BHIS 


9* 


2$: 


CMP 


LIUNIT.02O 




BLOS 


31 




MOV 


*fO. MANY. UNITS, -CSP) 




MOV 


01. -CSP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


*GOOD.NUM t UNITS,(SP) 




MOV 


♦ 1, -CSP) 




MOV 


SP,RO 




TRAP 


14 




TRAP 


44 




AOO 


06, SP 


3$: 


BIT 


♦l.SU.UNATT 




BEQ 


5$ 




CLR 


RO 


4$: 


Ct.RB 


DATETXT(RO) 




INC 


RO 




CMP 


R0.013 




BLE 


4$ 




TRAP 


43 




.WORD 


406 




.WORD 


DATETXT 




.WORD 


142 




.WORD 


DATMSG 




.WORD 


•1 




.WORD 


10 




.WORD 


12 




MOV 


0SW.U2. NOTICE, -CSP) 




MOV 


#1, CSP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


*SU.Q4.UNATT,(SP) 




MOV 


«I. CSP) 




MOV 


SP.RO 




TRAP 


14 




BR 


6$ 


5$: 


MOV 


05W.Q2.N0 TrCt , CSP) 




MOV 


#1. CSP) 




MOV 


SP.RO 



J SP,+ 



I SP,* 



t *.RC$M.REG 
; RCSM.REG,* 



s 
J 
J SP,» 



I SP,* 



I I 

j *CT) 
: I 



SP.* 



SP,* 



SP ( * 



1714 



1715 



1716 



1713 

1726 



1735 
1738 

1739 



1737 

1749 

1756 
1757 
1756 



1759 



1760 



17t>l 



1749 
1765 



ZRCHB3 




ZRCH80 RC25 DISK 


FORMATTER 


REV B PATCH 00 


INITIALIZE SECTION 


000262 


'.04414 








000264 


012716 


OCOOOOG 






000270 


012746 


000001 






000274 


010600 








000276 


104414 








000500 


112767 


000377 


OOOOOOG 


6$ 


000306 


10526 7 


oooooon 




7$ 


000312 


005000 








000311 


156700 


OOOCOOG 






000320 


020067 


OOOOOOG 






000324 


103401 








000526 


104444 








000330 


005000 






8$ 


000332 


156700 


OOOCOOG 






000336 


104442 








000340 


010067 


OOOOOOG 






000344 


001760 








000346 


010001 








000350 


011167 


OOOOOOG 






000354 


016167 


00C002 


OOOOOOG 




000362 


016716 


OOOOOOG 






000366 


012746 


000004 






000372 


004 76 7 


OOOOOOG 






000376 


010002 








000400 


042702 


177600 






000404 


142767 


000177 


000002G 




000412 


050267 


000002G 






000416 


016167 


000OO4 


OOOOOOG 




000424 


016167 


000006 


OOOOOOG 




000432 


142767 


000001 


000006G 




000440 


016767 


OOOOOOG 


OOOOOOG 




000446 


062767 


OOOOOOG 


OOOOOOG 




000454 


022626 








000456 


000523 








000460 


012700 


000036 




9$ 


000464 


10444 7 








000466 


103040 








0004 70 


016746 


OOOOOOG 






000474 


005046 








000476 


116716 


OOOOOOG 






000502 


012746 


OOOOOOG 






000506 


012746 


000003 






C00512 


010600 








000514 


104414 








000516 


012700 


1777/7 






000522 


010077 


OOOOOOG 






000526 


005000 








000530 


156700 


OOOOOOG 






000534 


005200 








000536 


020067 


OOOOOOG 






000542 


103410 








000544 


012716 


OOOOOOG 






000550 


012746 


000001 






000554 


010600 








000556 


104414 








000560 


104444 








000562 


005726 









l<9 

5-Apr-1984 13:33:45 
5-Apr-l984 13:31:29 



SEQ 0114 
VAX-11 Bliss-16 V3 555 Paae 15 

SPIDf.R$USERS:[NEALE.AZTEC]ZRCHB3.Bl6j5 (8) 



TRAP 


14 


MOV 


4SU.Q3,0PER,(SP) 


MOV 


41. -CSP) 


MOV 


SP,RO 


TRAP 


14 


MOVB 


4377, LUN 


INCB 


LUN 


CLR 


RO 


BISB 


LUN,RO 


CMP 


RO,L$UNIT 


BLO 


8$ 


TRAP 


44 


CLR 


RO 


BISB 


LUN,RO 


TRAP 


42 


MOV 


RO.PTBL.PTR 


BEQ 


7$ 


MOV 


R0.R1 


MOV 


CRl),RC25 t AD0R 


MOV 


2CR1),VEC.ADDR 


MOV 


VEC.ADDR.CSP) 


MOV 


44, -CSP) 


JSR 


PC,BL$DIV 


MOV 


R0.R2 


BIC 


4177600, R2 


BICB 


4177, ISO. STRUCT *2 


BIS 


R2,ISD.STRUCT>2 


MOV 


4CRD.BR. LEVEL 


MOV 


6(R1).UNIT.N0 


BICB 


41,ISD,STRUCT*6 


MOV 


AZF-MTR.OVSA 


ADD 


4AZF'MTR,0VSA 


CMP 


CSP)*, CSP)* 


BR 


14$ 


MOV 


436.R0 


TRAP 


47 


BHIS 


11$ 


MOV 


UNIT. NO, -CSP) 


CLR 


-CSP) 


MOVB 


LUN, CSP) 


MOV 


4PMT3, -CSP) 


MOV 


43, -CSP) 


MOV 


SP,R0 


TRAP 


14 


MOV 


4-1.R0 


MOV 


R0,S)RC25,ADDR 


CLR 


RO 


BISB 


LUN.RO 


INC 


RO 


CMP 


R0.L$UNIT 


BLO 


10$ 


MOV 


4N0. ADD. UNITS, CSP) 


MOV 


41. -CSP) 


MOV 


SP.RO 


TRAP 


14 


TRAP 


44 


TST 


CSP)* 



; SP,* 



f PTBL.PTR.+ 



; SP.* 

I ♦.RCSM.HEU 
i RC*M,REG,* 



J 



{ SP»* 



1766 



1774 
1778 
1780 



1783 



1788 

178) 
1790 



1791 
1792 

1800 
1831 

1728 
1726 
1840 



1847 



1848 
1850 

1853 

1852 



ZRCHB3 

REV B PATCH 00 



000564 
000570 
000574 
000576 
000600 
000602 
000606 
000610 
000614 
000620 
000622 
000624 
000626 
000632 
000634 
000640 
000642 
000644 
000650 
00O656 
000662 
000666 
000672 
000674 
000700 
000706 
000712 
000720 
000 26 
0007i;-> 
000736 
000740 
000742 
000746 
000752 
000756 
000760 
000762 
000766 



062706 
012700 
104447 
103001 
104444 
105267 
005000 
156700 
02006 7 
103401 
104444 
005000 
156700 
104442 
010067 
001760 
01G001 
011167 
016167 
016746 
012746 
004767 
0.10002 
04270? 
142767 
050267 
016167 
016167 
012716 
012746 
.0600 
U4414 
017716 
012746 
012746 
010600 
104414 
062706 
0002C7 



ZRCHBO RC25 DISK FORMATTER 
INITIALIZE SECTION 



000010 
000035 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

000002 OOOOOOG 

OOOOOOG 

000004 

OOOOOOG 



177600 

000177 

00O002G 

000004 

000006 

OOOOOOG 

000001 



OOOOOOG 
OOOOOOG 
000002 



000012 



000002G 

OOOOOOG 
OOOOOOG 



L9 

5 -Apr -1984 13 : 33 : 45 
5-Apr-19fcJ4 13:31:29 



SEQ 0115 
VAX 1.1 Bliss-16 V3-555 Page 16 

SPIDER $USERS:[NEALE, AZTEC 1ZRCHB3.B 16; 5 (8) 



Rout ine Si ze 



'52 words, 



Maximum stack depth per invocation: 10 words 



10$: 


ADD 


010.SP 


11$: 


MOV 


035.R0 




TRAP 


47 




BHIS 


12$ 




TRAP 


44 


12$: 


INCB 


LUN 




CLR 


RO 




B1SB 


LUN,R0 




CMP 


RO,L$UNIT 




BLO 


13$ 




TRAP 


44 


13$: 


CLR 


RO 




BISB 


LUN.RO 




TRAP 


42 




MOV 


RO.PTBL.PTR 




BEQ 


12$ 




MOV 


R0.R1 




MOV 


CR1),RC25.ADDR 




MOV 


2CR1),VEC.ADDR 




MOV 


VEC.ADDR, -CSP) 




MOV 


04, -CSP) 




JSR 


PC,BL$DIV 




MGV 


R0.R2 




BIC 


0177600, R2 




BICB 


0177, ISO. STRUCTfi? 




BIS 


R2,ISD.STRUCT*2 




MOV 


4CRD.BR. LEVEL 




MOV 


6(R1).UNIT.N0 


14$: 


MOV 


OXCRLP.CSP) 




MOV 


01, -CSP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


aPTBL.PTR.(SP) 




MOV 


0FMT2, -CSP) 




MOV 


02, -CSP) 




MOV 


SP.RO 




TRAP 


14 




ADD 


012, SP 




RTS 


PC 


Baoe: 


MA$CODE 


* 0156 



j PTBL.PTR,* 



1842 
1864 



1073 

1875 



1878 



1883 

1884 
1885 



SP,* 



J 5P,* 



1686 
1887 
1893 



1894 



1674 



COOOOO 
000004 
000006 



004767 

104411 
000207 



177004 



L$INIT 



.SBTTL 
:J r .R 
TRAP 
RTS 



L.JIN1T INITIALIZE SECTION 

PCLINIT 

11 

PC 



16^4 



: Routine Size: 4 words, Routine Base: AAJCODE * 1146 
; Maximum stack depth per invocation: 2 wordo 



ZRCHB5 

REV B PATCH 00 



18% 
1897 
1898 

1899 
1900 
1901 
1902 
1903 
1904 
1905 



ZRCHBO RC25 DISK FORMATTER 
AUTODROP SECTION 



M9 

5-Apr-1984 15:33:45 
5-Apr-1984 13:31:29 



SF.Q 0116 
VAX-11 Bliss-16 V3-555 Page 17 

SPIDER $USERS : [ NEALE . AZTEC 3ZRCHB3 . B16 ; 5 (9 ) 



Ksbttl 'AUTODROP SECTION* 
+ 
This cod* 
the "ADR" 
see i F 
dropped 

BGNAUTO; 

return; 

ENDAUTOj 



Is executed Immediately after the : nlt!aliz« code If 
" flag was set. The unit(s) under test are checked to 
they will respond, Those that don't are immediately 
from testing. 



000000 00020 7 



, SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 



1895 



Routine Size: 1 word. Routine Base: AA$C0DE ♦ 1156 
Maximum stack depth per invocation: words 



000000 
000004 
000006 



004 767 

104461 
000207 



Routine Size: 
Maximum fjtack 



177772 



4 words, 
depth per 



.SBTTL 
LtAUTO::JSR 

TRAP 
RTS 



LiAUTO AUTODROP SECTION 

PC, LAUTO 

61 

PC 



1904 



Routine Base: AAJCODE ♦ 1160 
invocation: ?. words 



ZRCHB3 

REV B PATCH 



00 



1906 

1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
191/ 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
192b 
1926 
1927 
1928 



N9 



ZRCHPO RC25 DISK FORMATTER 
CLEANUP CODING SECTION 

Ksbttl 'CLEANUP CODING SECTION 



!)-Apr-1984 13;33j45 
5-Apr-1984 13;31s29 



SEQ 



0117 

VAX -11 Bliss-16 V3-555 Page 18 

SPIDER*USERSi[NEALE.AZTEC]ZRCHB3.B16jS (10; 



Cleanup coding is assembled with the diagnostic progran, utilizing in- 
itiating CBGNCLN) and ending CENDCLN) directives. The coding can be 
used by either the diagnostic program or the supervisor to affect the 
return of a test device to a static state. 

The clean-up code is invoked in three different wa^ss 

A. At end of ».very sub-pass 

B. Issuance of DOCLN macro 

C. Operator tc 

BGNCl.Ni 

Before in i ting the RC25 controller check first to make Jure that 
that this is not a non-existant register. 



f not: .ELG..WRD [NON„EXIST.,REG] then WRT..RC25 (RCIP, ONES)} 

return ; 
ENDCLN; 



{Abort DM code execution 



000000 
000006 
000010 
000014 
000020 



032767 

001004 
012700 
010077 
000207 



000002 ^OUOOG 

17 77/7 
OOOOOOG 



.SBTTL 
LCLEAN: bIT 
BNE 
MOV 
MOV 
1$: RTS 



LCLEAN CLF.ANUP CODING SECTION 

O2.KLG.WR0 

1$ 

O-1.R0 

R0,S>RC25.ADDR 

PC 



*,RC*M.RLG 
RCSM.REG,* 



1925 



190b 



Routine Size: 9 words, Routine Base: AA$C0DE f 1170 
Maximum stack depth per invocation? words 



000000 004767 177752 



000004 
000006 

; Rout i n 



104412 
000207 

e S i ze 



4 word 1 



.SBTTL 
L$ CLEAN: : 

JSH 

TRAP 
RTS 



I $Ct FAN CLEANUP CODING SECTION 

PC, LCLEAN 

12 

PC 



1927 



} Maximum stack depth per invocation; 2 word* 



Routine Base; AASCODE ♦■ 1212 



ZRCHB5 

REV B PATCH CO 



l9«f** 
1930 
1^31 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1940 
1943 



B 1 



ZRCH80 RC25 DISK FORMATTER 
DROP UNIT SECTION 

#sbttl 'DROP UNIT SECTION* 



5-Apr-1984 

5-Apr-1984 



13i33i45 
13:31 :i?9 



SEQ 0118 
VAX -11 Bl>«« It- V3 li!»!i Pooe 19 

SPIDERIU5ERSj[NEALE.A/TECJZRCHB3.BX6j5 (11 J 



The drop code >• invoked by a DOOU macro or a drop command, #><} con- 
tain* any codt that neede to be asecuted In conjunction with tha drop 
ping of a unit from tha taat eye la, No coding it required in this 
•act ion, 

Tha affact of o D00U ia tha aama whether executed in the init coda or 
in a hardware taat. It invokee Ina drop unit coding and cauaaa aubae 
puent GPHARO S for that logical unit to ba returned "NOT COMPUTE". 
This effect lasts only for tha duration of tha currant command 

BliNOUi 

return j 
fcNODUj 



0OO0O0 000207 



Routine Si /a: 1 word. Routine Oaae- AASCODE ♦ 
Maximum stack depth per invocation? words 



.SBTTL LDU DROP UNIT SECTION 
LDU: RTS PC 

1222 



1928 



0OOOO0 
000004 
0000Ot> 



004 lb ? 
104453 
00020 7 



17777? 



ItOVi . 



.SBTTL 


L*DU DROP 


.'SM 


PC, LOU 


TRAO 


53 


RTS 


PC 



UNIT SECTION 



194, 



; Routine r ,;;t: 4 *ord*. Routine Baae : AAfCOOE ♦ 
i MoKimum stack dapth p^r invocation: 2 word* 



1224 



CIO 



ZRCHB5 

REV B PATCH 00 



1944 

1945 
1946 
1947 
1946 
1949 
1950 
1951 
195? 
1953 
1954 
1955 
1956 
1957 
1956 
1959 
1960 



ZRCH80 RC25 DISK FORMATTER 
ADD UNIT SECTION 



S-Apr-1984 I3;33j45 
5-Apr-1964 13:31:29 



'Sf.Q 0119 
VAX-11 Bliss -16 V3 t>55 Paoc 20 

SPIDER $USERSi[NhALE. AZTEC )ZRCHB3,B16 } 5 (.1?,) 



any cods that 
t buck to the 



Ssbttl 'ADD UNIT SECTION 
» 

Ths add coda is invoked by ths ADD co^tndt and contain* 
needs to be ».H«cut«d !n conjunction with adding a un 
test cycls. No coding is rsquirsc in this ssction. 

Units may be added to the test ssqusnes only through ths us* of opwra 
tor ADD command. Each unit must havs a P- TABLE in memory dus to en 
earlier hardnara dialogue (i.e. tha unit has previously dropped). 
Ths ADD cods must bs dslimitsd by BGNAU, ENOAU. Thsr* in no particu- 
lar coding racfjirad in th* add coda to cause ths add to bs effectives 

The taction is just for programmer housekeeping, 

BGNAU j 

return t 
ENOAU; 



000000 000207 

; Routine Size: \ word, 



LAU; 



Routine Bi 



Maximum stack depth per Invocation} word** 



.SBTTL 
RTS 



LAU 
PC 



ADD UNIT SECTION 



1943 



AAtCODE » 1234 



OOOOOO 004 ?o/ 177772 
0000O4 104452 
000207 



LIAUu 



.SBTTL 


LIAU ADD UNIT SECTION 


JSft 


PC, LAU 


TRAP 


52 


RTS 


PC 



1959 



; Mouti-ie Size: 4 words. Routine Base: AAlCODfc ♦ 1236 

s Maximum stack depth per invocation: £ words 



1961 end 

19t>2 

1963 eludom 



OTS external refsrencts 

.GLOBl. ISAVE2, BLIDIV 



PSH.CT SUMMARY 



Psec t Name 
AA$C0UE 



Words 
339 



Attr ibutes 



LCL» RbL, CUN 



LIBRARY STATISTICS 



DIG 

ZRCHB3 ZRCHBO RC25 DISK FORMATTER 5 -Apr -1984 13:33,45 VAX-11 Bli»«-16 V3-555 SEQ p2a2° 21 

REV B PAVCH 00 ADD UNIT SECTION 5 -Apr -1984 13:31:29 SPIDERJUSERS: [NEALE.AZTEC)ZRCHB3,B16 j5 C 12) 

Symbols Blocks 

File Total Loaded Percent Read 

SP LOLR SUPERS :[ NE ALE , AZTEC 5ZRCHB0 . L16 | 2 

398 63 lb 24 



COMMAND QUALIFIERS 

BLISS /PDPlt/LIST ZRChB3.B16 

Size: 289 «;o<*e ♦ 50 data words 
Run Tlm«: 00:18.7 
Elapsed Time: 02 ; 34. 9 
Memory Used: 22? pages 
Compilation Complete 



ZRCHB4 



0001 
0002 
0003 
0C04 
0005 
0006 
0007 
0006 
0009 
0010 
0011 
001,? 
0013 
0014 
0015 
0016 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
152/ 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 



ZRCHBO RC25 DISK FORMATTER 



E10 

5-Apr-1984 13:44:04 

23~Sep-1983 14:13:18 



SEQ 0121 
VAX -11 Bliss-16 V3-555 Page 1 

SPIDER *USERS:[NEALE,AZTECURCHB4.B16;2 CI) 



MODULE ZRCH64 (KTITLE 'ZRCHBO RC25 DISK FORMATTER* 

IDENT - 'REV B PATCH 00' , 
ADDRESSING MODE (RELATIVE) , 
ENVIRONMENT CNOEIS) 
) - 

BEGIN 

•sbttl 'MODULE DECLARATIONS' 

Pretty Declarations 
<blf / lowercase .key* 



library 'ZRCHBO' j 
require 'BLSMAC.REQ' 1 



.•Define RC25 formatter library 
! Define Bliss Macro require file 



The psect named "code or icode*" is redefinded Here 
to be called "ab$code". This is done to organize the 
formatters test sections into a seperatc psect, 

psect 

code ■ ab$codej 



Structure declarations used within this module. 



structure 



RC25 register accessing structure. This 
structure allows RC25 register accessing 
to be transportable between the PDP-11 and 
VAX Diagnostic Supervisors. 

This also defines an access algorithm for 
VAX to allow field reference to MBA address 
space without generating machine checks. 



RC2S [0\ P, S, E] - 
begin 

local 

RC*S_REG: 

RC I S.REG - .(RC25 * *upval*G)<0, appvol, 0>i 

RC*S_REG 

end 

<P. S» E>{ 

J<blf/page> 



F10 



ZRCH84 

REV B PATCH 00 



1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 



ZRCH80 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



5-Apr-1984 13;44<04 
23-Sep~19U3 14il3il8 



SEQ 0122 
VAXU Bliss-16 V3-555 Pooe 

SPIDLR$USERS; [NEALE. AZTEC ]ZRCH34.B16;2 (2) 



External Routines declared outside this module* 



external routine 
ABORT, 
GET_DUST_STATUS, 

EX SUP PROG, 

EX^LOC.PROG, 

REC..DATA, 

SEND_DATA, 

SET_CNTLR_CHAR, 

0N„LINE, 

DUP*I_SERVICE x 

INT$I_SERVICE : 

TNIT„C0M AREA, 

B00T_RC25. 

DECODE j novaluet 



INT_LNK$TYP novalue, 
INT„LNK$TYP novalue. 



*<blf/page> 



ZRCHB4 

REV B PATCH 00 



1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571. 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 



ZRCH60 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



G10 

5-Apr-1984 13:44:04 
23-Sep-1983 14:13:18 



SEQ 0123 
VAX-11 Bltss-16 V3 555 Page 

SPIDER$USERS : [ NEALE , AZTEC ]ZRCHB4 . B16 ;2 C 3 ) 



External Declaration of datums declared outside of this module, 



external 



Mtcellanious external data declarations 



SW_UNATT, 

DATETXT : vector [12, byte], 

LUN : word, 

UNIT_N0 : word, 

FLG^URD : bitvector [16], 

ISD^STRUCT : blockvector C4, 2, 



PTBL PTR 
NEX.FLAG 

NXT CRN : 
RET^ENIAu 
FCT^BUF • 
SNO BUT : 
REC BUF : 
MSGADR, 
N5D SLOT : 
NRD_SL0T : 
VEC_ADDR : 
RET^STATUS 
PID_SAVE : 
RC25_ADDR 



word] 
volat 



field 
ile, 



ref vector [4, word] 

word, 
byte, 

: ref block [RB_SIZE *■ 2, word] 
block [256, word], 
vector [SNOB.SIZE, word], 
block [RECB_SIZE, word] fie 



! Unattended reformat mode flag 
{Stores operator date input 
{Logical vjnit number storage 
{Physical unit number storage 
! Global flag word 
(1SD..FIELD), 5 In it sequence 



data 



text buffer 



word, 
word, 
word, 
; word, 

vector (2, word], 
ref RC25 field (ISD.FIELD 



{RC25 register existence flog 

{Next seq command ref number 
field (ENV.FIELD). 

.'External FCT sector load buffer 

JDUP send cmd text buffer 
Id CRECB_FIELD), JDUP receive cmd 

{Pointer to DM sent asc i i text 

{Stores next send ring slot to load cfr>d into 

{Stores next receive slot to expect response in 

{Stores controllers vector address 

{Stores return status of colled routines 

{Saves process indicator word 
), }RC25 reference structure 



In it sequence code error 



BO0T_FAILURE, 

PROTO^VICLATION, 

PORT_INIT_ERR, 

ACTIVE _DUP_5ERVER, 

INACTIVE^DUP„SERVER, 
j 

! External FCT request message during RESTORE formatting mode 
FCT_REQ„MSG, 

! Printing format strings and asc i i text strings 

i 

DATMSG, 

CRLF, 

FMT1, 

FMT5, 

FMT6, 

FMT7; 



-no 



ZRCH64 

REV B PATCH 00 



1615 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1658 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
164 7 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 



7RCH60 RC25 DISK FORMATTER 
RC25 REGISTER EXISTENCE TEST 

*sbttl *RC25 REGISTER EXISTENCE TEST 
BGNTSTj 



Funct tonal Description 

Th-~ — ----- - 1 



5-Apr-1984 13j44{04 
23-Sep-1983 14}13:18 



SEQ 0124 
VAX-11 BI199-I6 V3-555 Page 4 

SPIDERiUSERS} [ NEALE. AZTEC ]ZRCH84.B16;2X4) 



on«l Description : 

This section will be the first code to be executed during a formatting 
session and will ensure that the obiect drive to format actually does 
exist. The format for the unit will be aborted if the drive fails to 
respond to this initial test. 



Implicit Inputs 
none 

Implicit Outputs 
none 

Completion Codes 
none 

Side Effects : 
none 



local 

EOF, 

DUMMY ; volatile, 

TEMP : volatile, 

RETRIES; 

FLG_WR0 [N0N EXIST PEG] - ZERO} 

NEX. FLAG - ZEROS; 

SETVEC (4, INT*I_SF.RVICE, PRI07); 

TEMP - .PTBL.PTR [WRD0]{ 

TEMP - .TEMP * 2 J 

■f ..TEMP 
then 

begin 

DUMMY * ZEROS; 

endt 

CLRVEC (4); 

if .NEX_FLAG eql ONES 
then 

begin 

PRINTB (FMT6, .PTBL P TR [WRD0])j 
FLG_WRD [NQN.EXIST.REG] * ONE; 
DOCLNj 
end; 



.' EO* indicator 

!Dummy variable for register ext test 

•Store number of retries to perform 

•Initially clear nonexistant register flag 

•Clea^ out nex flag 

.'Set up for an nex trap 

•Get this controllers IP address 

•Make it into the SA register address 

•Read the sa register 
! Th i s i s so that if there 
•Is an nex there will be 
•A single opperand i nst . 
•So that It will trap 

•correctly. 

! See if we got a^ nex 

•Address not there 

•Print error message 

{Set flag indicating non-existant reg 



ZRCH64 

REV B PATCH 00 



1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

16 76 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1602 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1 702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1/19 

1720 



ZRCH60 RC25 DISK FORMATTER 
INITIALIZE RC25 CONTROLLER 

tfsbttl 'INITIALIZE RC25 CONTROLLER 



110 

5 -Apr -1984 13:44:04 
23-Sep-1983 14:13:18 



VAX-11 Bliss-16 V3-555 

SPIDER JUSERS : [NEALE. AZTEC JZRCHB4 



SEQ 0125 

Page 5 
B16;2 (5) 



The next thin^ to be done Is to boot the RC25 controller. We will allow 
a few retries if not successful after the first boot before we concidered 
the Controller dead. 

But before we do the boot sequence the processors priority and interrupt 
vector address must first be loaded. During the in it sequence the In it 
sequence interrupt service routine will just flag iny interrupts and ignore 
them since Interrupts are disabled during in it sequence. Later the DUP 
interrupt service routine will be load and do the DUP communications protocol. 

The following priorities will be assigned: 

1. Processor will run at priority zero, 

2. The RC25 runs a'c priority 5 by default. 

3. The DUP interrupt routine will run at priority 7. 



SETPRI (PRIOOO; 

CLRVEC C.VEC ADDP); 

SETVEC C.VEC.ADDR, INTtl SERVICE, PRI07); 



! Set the processes priority 

! Clear out the vector before setting 

•Set the interrupt service priority 



• 



! ♦ 

! Retry the RC25 booting until the return Is true or the retry limit i«= reached. 
• - 

RETRIES 



-ll 



do 



begin 

RET_STATUS • BOOT RC25 (); 
RETRIES » .RETRIES ♦ 1; 
end 
until (,RET_STATUS) or C ♦RETRIES eqlu ONE): 



JReset the retry counter 



.'Boot the RC25 controller 
!Up the retry count 

! Repeat the Boot until done 



» Report booting error if the return status nc\/cr came back as true. 



if not .RET STATUS 
then 

begin 

PRINTS (B00T..FAILURE): 

DOCLNj 

end; 



!01d the Controller boot 
{Report » boot error 
! Abort the program 



Now that the RC25 controller Is booted, check to make sure that the controller 

has done its part of the DUP protocol by clearing out the port communications area. 

While we're there set up the communication area for the up and coming communications 
between the remote and host program. 



f INIT.COM AREA C) 
then 

begi n 

PR1NTB (PR0T0 VIOLATION); 

PRINTB (PURT_INIT_ERR); 



!Was the com area cleared out as expected 
!Com area not in I ted so error and abort 



ZRCH64 




REV 


B 


PATCH 00 

1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 



ZRCHBO RC25 DISK FORMATTER 
INITIALIZE RC25 CONTROLLER 

DOCLN; 



J 10 

5-Arr-1984 13:44:04 
23-Sep-1983 14:13:18 



SEQ 0126 
VAX-11 Bliss-16 V3-555 Page 6 

SPIDER JUSERS : C NE ALE . AZTEC ] ZRCHB4 . B 16 ; 2 ( 5 ) 



Before writing the 90 to the IP register load the DUP interrupt service adrg 
Into the RC25 vector Address for the up and coming common i cat ions between 
the host and controller. 



JClear out the vector before starting 
! Set the interrupt service priority 



CLRVEC CVEC ADDR) 5 

SETVEC C.VEC.ADDR, DUP*I_SERVICE , PRI07)? 
♦ 

Sic^t ti.e controllers functional micro code by writing the SA Register 

with step four write data with the go bit set. 



WRT.RC25 (RCSA, (.ISD_STRUCT [BLK3, ISWRT, ISW.ALL] or *o' 000001' )) } 



!Let the controller go 



K10 



ZRCHB4 

REV B PATCH 00 



1736 
1737 

1739 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
174 7 
1748 
1749 
1750 
1751 
1752 
1753 
1754 

175/;. 

1756 
1757 
175C 
175< : 
1760 
176? 
176<? 
1763 
1764 
1 765 

i'e 

J 76 . 
l/6b 
176* 



7RCHB0 RC25 DISK FORMATTER 
BRING RC25 CONTROLLER ONLINE 

Ksbttl 'BRING RC25 CONTROLLER ONLINE' 



5-Apr-1984 13:44;04 
2VSep-l983 14:13:18 



VAX-11 Bltss-16 V3-555 
SPIDER$USERS:[NEALE.AZTEC]ZRCHB4 



SEG 0127 

Pag* 7 
B16.-2 (6) 



Functional Oesc i at ion : 

This sciii.i.- will set the RC25 controller :> characteristics and place 
the un i t en- line, 

Implicit Inputs : 

none 
Implicit Oidcuts ; 

none 
Completion Copies ; 

none 
Side Effects j 

none 



£•■+ the controller characteristics* Default \,*ijes will be taken in all cases 
encopt for the host time out value which will b^ changed to 'wait for ever'. 



if ^:T^CNTLR_CHAR C) then DECODE ()j 



ICall decode if not succossful 



t)c a unit on line cmd which will spin up the device and load the heads. The 
unit to be placed on line will be the last unit number received from the 'gphard' 
macro in the in it code. 



PRT.NTB (FMT5, .LUN, .UNIT„N0)i 
if ON.LINE O then DECODE C)j 



•Tell ope r- tor which units coming online 



•Call decode if not successful 



ZRCHB4 

REV B PATCH 00 



1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
179? 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
18.1.0 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1B22 
1823 
] 824 
1825 
1926 



ZRCH60 RC25 DISK FORMATTER 

DOWN LINE LOAD FORMATTER AND MONITOR TASK 



L.10 

5-Apr-1984 13:44;04 
23-Sep~l983 14:13:18 



SEQ 0128 
VPX-11 Bliss-16 V3-555 Page 8 

SPIDER $USERS : [ NEALE . AZTEC ]ZRCHB4 . 916 ; 2 ( 7 ) 



Ksbttl 'DOWN LINE LOAD FORMATTER AND MONITOR TASK' 

Functional Description : 

This section will down line-lone* the RC25 formatter and monitor 
' the formatting task. 

Implicit Inputs : 

none 
Implicit Outputs : 

none 
Completion Codes : 

none 
Side Effects : 

none 



Sec if the Dup server in the RC25 Controller is in on 
idle state. To do this first get the dust status and 
then look at the flag field bit 3 for a : 

- idle 

1 * active 



•■' GET^DUST^STATUS () then DECODE ()j 



JCall Decode if connection error 



Look in the flag field bit 3 to see if the server is active. 



f .RET.ENSAD [FLG..B3] 
then 

begin 

PRINTS (ACTIVE.DUP..SERVER)} 

DOCLNj 

end: 



The server is not active so down line load the formatter 
and start its execution by issuing a "Execute supplied program". 
Call the decode routine if a connection error is detected. 



!IF the server Is active exit and reboot 



f EX.SUf\.°R0G O then DECODE C)» 



ICa.ll decode if connection error 



Get the dust status to see if the server is in an ective 
state. An active state is what we want so error if the 
server is in an idle state. 



If in the active state then save the progress indicat 

in "P id. .save" for future reference. 



or 



f GET.DUST.STATUS O then DECODE Oj 



ICall decode if connection error 



M10 



ZRCHB4 

REV B PATCH 00 



1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 

ie:si 

1852 
1853 

1854 
1855 
1856 
1857 
1858 
1859 
1H<»0 
18M 
1862 
1863 
1864 
3 86!) 
181>6 
1867 
1860 
1869 
1870 
18/1 
1872 
1873 
18/4 
1875 
18 76 
1877 
18/8 
1879 
1880 
1881 
1882 
1803 



ZRCHBO RC25 DISK FORMATTER 

DOWN LINE LOAD FORMATTER AND MONITOR TASK 



5Apr-l984 13j44j04 
23-Sep-19B3 14?13:18 



VAX-11 Bliss-16 V3-555 
SPIDERiUSERS : [ NEALE . AZTEC ] ZRCHB4 



SEQ 0129 

Page 9 

B16{2 C7) 



! Look at the flag field bit 3 to see if the server is active. 



if not C.RET..EN$AD [Fl..G^B3]) 
then 

begin 

PRINTB CINACTIVE„DUP SERVER)} 

DOCLN} 

end 
else 

begin 

PID SAVE [0] - ,RET_ENSAD [PLO IND]» 

PID^SAVE [11 - ,RET^EN*AD [PHlIlNDli 

end; 



! Reboot i? server iy idle 



•Save progress indicator lo word 
iSave progress indicator hi word 



The Dup server is in the active state running the formatter 
program. This DO LOOP will loop on the DUP sob-protocol 
doing the "send and receive" data commands, These commands 
establish the communications between this host program and 
the remote formatter program running in the RC25 controller, 



RETRIES - ZEHOi 

while TRUE do 
begin 



J Clear out the retry flag 



Do a ' Rec« i ve_data' command which poll's the remote program 
for a mey^-Jja*. Yhrt returned message can either be a: 

1. Quest io'i 

Wnere the a^cir text is a prompt for Information, 

2. Default quest; on 

Where the default question message is identical 
to the question r^ssage exept that a null (.zero 
length) send data is taken to be a default answer 
to the question, 

3, Information 

Where the asc 5 i text is ar\ informative message. 

4, Termination 

Where the ascii text if; f.r> normal termination message. 



5, Fatal Error 

Where the asc i i 



♦:e>;t ; s a fatal error* message, 



6 . Spec i a 1 

Thii, type is usea "ien only a hoist program could 
respond. 



f REC.DATA () then DECODE ()j 



I Coll decode if connection error 



N10 



7RCHB4 

rev B PATCH 00 



1884 
1885 
1866 
1887 
1888 
1889 
1890 
1891 
1892 
1895 
1894 
1895 

ir;6 

1897 

1898 

1899 

1900 

1.901 

1902 

1905 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1915 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1925 

1924 

1925 

1926 

1927 

1928 

1929 

1950 

1951 

1952 

1955 

1954 

1955 

1956 

195 7 

1958 

1959 

1940 
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From tl'.e first *ord i rt the send/receive data buffer, look 
to see what type message the remote program has sent to 
the Host program. Use this message type number to index 
into the select expression to perform the requested action 
by the remote program, 



$CLI>SBUF; 

selectoneu ,REC 8UF [MSG^TYP] of 
set 



111 



b<.»»)in 



! Clear out the send buffer area 
! Select the appropriate action 

I Quest ion message type 



! i <:.k into the send/receive data buffer at the message 
! ujfiiber field and see whnt question the remote program 
3 ■•; n'i»'< i ^g . Use the fields value to index into the 
! select <■ press ion to perform the appropriate action. 



selectoneu .REC BUF [MSG„NUM] of 
set 

[0] : 

beg J r \ 



{Select the requested question 
{Enter current date <MM-DD-YYYY> 



! If in un- at tended reformat mode then give to the DM the 
J date received from the init code else let the DM prompt 
! the operator for the date. 



If . SU i'NATT 

then 

begin 

if .RETRIES 
then 

begin 



lis the host running in unattended mode 
ID id DM not verify the date the last ime 



! Clear out the date text buffer before loading in 
! date and ask the operator for the date again. 



incr J from to 11 do 

DATF.TXT [ . i ] * /EROS j 



GMANID CDATMSG. DATETXT. A. rfo'177777*. tf, 10, NO); !Get dote from operator 

end; 



else 



*KH I DATE } 

RETRIES * ONE? 

end 



SFill the send buffer with the date 
iSet tne retry flag 



beg i n 

GMANID CMSGADR, SND..BUF, A, *o* 177777' , 8, 10, NO); 



/RCHB4 




REV 8 


PATCH 00 


« 


1941 


i 


194,? 


J 


194* 


» 


1944 


! 


1945 


J 


1946 


• 


194 7 


J 


1948 


* 


1949 


; 


1950 


I 


1951 


i 


19 V 


J 


195* 


i 


1954 




1955 




1956 




1^57 




1958 




1959 




1960 




1%1 




1962 




1963 




1964 




1%5 




1966 




1967 




1968 




1969 




1970 




19/1 




1972 




1973 




1974 




1975 




1976 




19? 7 




1978 




197V 




1980 




1981 




198? 




1983 




1984 




1985 




1986 




1987 




1988 




1989 




1990 




1991 




199 t ' 




1993 




1994 




1995 




19'*, 


J 


1997 



\) 1 'I 
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VAX 11 Bl i»5-16 V3 555 
SPIDERIUSERSuNEAt.E.A*TEC)^RCHB4 



GEO, 0131 

P*Q4 11 

,B16{2 (/•; 



endj 
PRINTS (CRLT)j 

If SFNO..DATA () then DECODE ()| 
endj 



(7) : 



.'Enter a non-/«ro serial number 



Dtgin 

GMANID (MSGADR, SNU HIT. A, ao'l/////', 1, 64, NU)i 

PRINTB (CRLF )i 

if SEND, DAT.* O then DECODE ()j 



[otherwise] ; 
begin 

RET STATUS 
DECODE ( )i 
endi 

te«| 



UNICODE | 



JThis meeeege number i* unknown 

•t.Jnknown maeeage numo«r error C0CHT 
jReport trror and die 



end j 

(2) : 

begin 



!Default Quest ton 



seltctonfu .REC ,8UT [MSG„NUM) of 
set 

ill : 

begin 



JEnter unit number to format <0» 



If In un - at tended reformat mode then give to th* DM the 
unit number obtained from the r\mr&«mr* P Table elee let 
the DM prompt the operator for the unit to form/it. 



If ,SW UNATT 
then 

begin 



58 



SNO BUT - .UNIT NO j 
PRINTB (FMT7, .UNIT NO ) i 
end 



! I a the host running in unattended mode 

! Report *h»ch unit la being format teo 



else 



beoin 



oeg 

GMANID (MSGADR, 5N0 Hi*, A, Ho' 177/77' , I, 5, YtS)| 

end j 

PRINTB (CRlf )» 

if SENO.UATm I) then DECODE Oi 

end) 



/RCHH4 

REV D PATCH 00 

1998 
1999 

2000 
2001 
2002 
200 5 
2004 
200b 
2006 
200? 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
20 lb 
2016 
2017 
2018 
2019 

2020 
202 1 
2022 
202 3 
2024 
2025 
2026 

202 7 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 

203 7 
2038 
2039 
2040 
2041 
2042 

204 3 
2044 
2045 
2046 
204/ 
2046 
2049 
2050 
2051 
2052 
2<*53 
2054 
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!Use existing bad block information <N> 



SF.Q 0132 

Pag* 12 
B16,2 (7) 



! If Jn un attended reformat mod* than tall tha DM to 

! do a reformat mod* alaa l*t the DM prompt tha Operator 

! for tha Formatting mod* to us* for this unit. 



if ,SW_UNATT 
th*n 



alaa 



b*gin 

SN0_BUF - *c' Y' i 

•nd 



!Is the host running in unattended mode 
{Default to do reformat mode 



b«gin 

GMANID (MSGADR, SND.BUf" , A, do' 177777' , 1, 3, YES)j 

end i 

PRINTB (CRLr)| 

if SFN0_0ATA () then DECODE Oi 

end i 

!Use down line lond <N» 



[5) : 

b*gm 
1A 



GMANID (MSGADR. SN0..BUF. A, *o' 177777', 1, 3, YES)j 
PRINTB CCRLF)i 

if SEND ..DATA () then DECODE ()» 

endj 



[6] : 

begin 



if .SU..UNATT 
then 

b*gin 

SNO.BUF ■ ^c'N' i 

*nd 
else 



{Continue : f bad block information Is inaccessable < N > 
!I* the host running in unattended mod* 
•Default not to continue 



begin 



% 



GMANID (MSGADR, SNO BUT , A, Ho' 177777' , 1, 3, YE5)| 

•nd| 

PRINTB (CRl>~)i 

if SEND ..DATA () then DfcCODL ()| 

*ndl 

■Thi* message number is unknown 



(oth*rwis*l : 
b*gln 

RET STATU- • OMN CODE i 
DECODE ( )j 
end i 



! link nown mensag* number error code 
IReport error and die 



2RCHU4 

REV B PATCH 00 



2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

206 7 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

20/7 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

20*6 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

mi 
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tesi 



endj 

(3) : 

begin 



selectoneu .RFC.BUF [MSG^NUM] of 
set 

[0, 1, 2, 3, 4, 5, 7, 9, 11, 
begin 

PRINTB (FMT1, MSGADR)* 
end i 

[otherwise) : 

begin 

RET ..STATUS - UMN CODE j 

DECODE C)j 

endj 
tesj 

end; 



[4] : 

begin 



selectoneu .REC_BUF [MSG..NUM] of 
set 

(12, 13] : 
begin 

PRINTB CFMT1, MSGADR)i 
URT.PC25 (RCIP, ONES); 
ex i tloop 
end i 

[ otherwise ) : 

begin 

RET_STATUS - UMN.CODE j 

DECOOE C )| 

end j 
tesi 

end j 



[5] : 

begin 



selectoneu .RfcC .BUT* [ MSG NUM) of 
set 

[1 to 24) : 
begin 

PRINTB (FM1 1. MSGADR)i 
WRT .RC25 (RCIP, 0NES)| 

DOCl.Nt 



Dll 



5-App-1984 13t44:04 
23-Scp-19o3 14: 13: 13 
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{Informational message 



14, 16] ; ! All possible Information msg's 



!This message number is unknown 

.'Unknown message number error code 
{Report error and die 



! Termination message 



J Abort and normal termination type 



J Stop the reinote program 
{Return to in it code 



♦This message number is unknown 

♦Unknown message number error code 
.♦Report error and die 



{Fatal error message 



♦Errcr messages are from 1 to 24 



.♦Stop the remote program 

! K i 11 this formatter and return to in it code 



Ell 



ZRCH64 




REV B 


PATCH 00 




2112 




2113 




2114 




2115 




2116 




2117 




2118 




2119 




2120 




2121 




2122 




2123 




2124 




2125 




2126 




2127 




2126 




2129 




2130 




2131 




2132 




2133 




2134 




2135 




2136 




2137 




2138 




2139 




2140 




2141 




2142 




2143 




2144 




2145 




2146 




2147 




2148 




2149 




2150 




2151 




2152 




2153 




2154 




2155 




2156 




2157 




2158 




2159 




2160 




2161 




2162 




2163 




2164 




2165 




2166 




2167 




2168 
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[otherwise] : 

begin 

RET^STATUS 

DECODE ()} 

end} 
tes j 



UMN.CODE} 



{This message number is unknown 

{Unknown message number error code 
{Report error and die 



[6] 



end} 



begin 

selectoneu ,REC BUT [MSG NUM] of 
set 



{Special message type 



CI] 



JFCT sector request 



begin 

If this is the firet FCT sector reou*st (sector 0) then ask 
the operator for the external FCT file name and open the file. 
The supervisor will error and return to DRS> monitor if the 
requested file is not found on the local load media. 

f .REC.BUF [MSCTXT] eql FCT SEC 

then 

begin 

GMANID CFCT_REGLMSG f SND.BUF, A, #o' 177777' , I, 10, NO); 

OPEN (SND.BUF) j 

end i 

i 

! Load into the FCT.BUF the next sequential 256 FCT sector words 
i 

incr FCT_WRD from FCT.BUf to FCTJ3UF * tfo'776 1 by *o'2' do 

E0?'" GETWORD C.FCT„WRD)j 
end; 

Test to see if the EOF indicator was returned from the GETWORD Macro 
before 16 FCT sectot 3 were read indicating an illegal FCT file format. 

End of file is reached when .EOF - 0| 

f ((.EOF eql ZERO) and ( .REC.BUF [MSG, TXT] lss FCT_SEC„15)) or ( ,REC Bl'F [MSG TXT] gtr 
FCT. SEC 15) 
then 

begin 

SND.BUF f 01 - ONESi {Indicate failure to get good FCT file 

if SEND. DATA () then DECODE Ci J Send failure to DM 



ZRCHB4 

REV B PATCH 00 



2169 
2170 
2171 

2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
220 f 
2208 
2209 
2210 



Fll 
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RET. STATUS 
DECODE Oj 
end} 



ILL_FCTj 



{Host will also report the failure 
! Error out and die 



Return to the remote program a success indicator and the 
unibus lo and hi adrs of where this FCT sector can be found 
and send the information back to the remote program. 



SN0„BUF i0] - ZERO; 
SND_BUF m - FCT_BUF, 
SND_BUF [2] - ZERO; 



! Indicate success 

!Lo unibus adrs of FCT sector 

!Hi unibus adrs of FCt sector 



if SEND^DATA () then DECODE ()j 



!Send reply back to DM 



Close this External FCT file if this is FCT sector 15, 

if .REC.BUF [MSG^TXT] eql FCT.SEC.15 then CLOSE; 
end i 



[otherwise! i 
begin 

reT_status 

DECODE ()i 
end} 

tes; 



UMN_C0DE; 



end; 

[otherwise] : 

begin 

RET_STATUS - UMT CODE; 

DECODE C){ 

ftndt 
test 



•This message number is unknown 

•Unknown message number error code 
•Report error and die 



end i 

ENDTST; 



. T ITLE Zr>CHtJ4 ZRCHBO RC25 DISK FORMATTER 

.XDENT /RfrV B / 

• Gt.OBL ABORT, GET .DUST . STATUS , EX. SUP. PROG 

.wJ.'JBL FX.LOC.PROG, REC.DATA, SEND. DATA 

.GLOBL SET.CNTLR.CHAR, ON. LINE, DUP$ I , SERVICE 

.GLOBL INT -I .SERVICE, INT. T .COM. AREA, B00T.RC2S 

.Gl.OBL DECODE, 5U.UNATT, DATETXT, LUN 

.GLOBL UNIT. NO, FLG.WRD, ISO. STRUCT, PTBl.PTR 

.GLORL NfX.rL.AG, NXT.CRN, RET.ENSAD, FCT.BUF 

.GLGSL SNO.BUT, REC.BUF, MSGADR, NSD.Sl.OT 

.GL09I. WD. SLOT, VEC.ADDR, RET. STATUS 

.GLOBL Pit. 1 . SAVE, RC25.ADDR, BOOT, FAILURE 



ZRCHB4 

PEV B PATCH 00 
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SEQ 0136 
VAX-11 Bllss-16 V3-555 Poqc 16 

SPIDER JUSERS : [ NEALE . AZTEC 3ZRCH84 , B16 j 2 C 7 ) 



.GLOBL PROTO. VIOLATION, PORT . INIT .ERR 

.GLOBL ACTIVE. DUP. SERVER, INACTIVE .DUP . SERVER 

.GLOBL FCT.REQ.MSG, DATMSG, CRLF , FMT1 

.GLOBL FMT5, FMT6, FMT7 



000000 








000000 


004167 


000000(5 




000004 


024646 






000006 


142767 


000002 


OOOOOOG 


000014 


005067 


ocoooor 




000020 


012746 


000540 




000024 


012746 


QOOOOOit 




000030 


012746 


0C0004 




000034 


012746 


000005 




0000*0 


1044?.' 






000042 


01?76^ 


OOOOOOG 


000010 


00005O 


0627**. 


000002 


000010 


00001:*-, 


C32." 6 


000001 


000010 


0O0< ■■;.'■. 


0014 :-2 






0000>6 


0050ofc 


vi00012 




000072 


03.2700 


000004 




o:oo76 


\C1436 






CO 100 


o'-67?7 


OOOOOOG 


177777 


•^106 


CO '-\$ 






' s'll^ 




OOOOOOG 




1-: 


, >7<6 


OOOOOOG 






-.■•;; ^6 


000002 




OCX >4 


' ' ..ovO 






00(. :o 


' -U14 






000; '■•:. 


:v:767 


000002 


OOOOOOG 


OOOi , 


! .■*. M4 






000 Kv 


o;.^;26 






0001*2 


OOoOOO 






000 1< 4 


104441 






0001*6 


f: 16 700 


OOOOOOG 




oooi •■:■ 


.104436 






000 U 4 


012716 


000340 




CN>16." 


; V?746 


OOOOOOG 




00016^ 


Oil'- 746 


OOOOOOG 




000170 


012746 


000003 




000174 


101437 






000176 


'» 12 703 


177777 




000:^02 


»4767 


OOOOOOG 




000 rOt 


v;006 7 


OOOOOOG 




000. -. 


. V5203 






■/OOr. 1 


)'*.? 7 00 


000001 




000220 


'01003 






000222 


020327 


000001 




000226 


001365 






000230 


032 767 


000001 


OOOOOOG 


000236 


001010 






000240 


012716 


OOOOOOG 




000244 


012/46 


000001 




000250 


010600 







$U: 



1$: 



2*: 



35: 



4$: 



.SBTTL 


IT1 DOWN LINE 


.PSECT 


ABJCODE, RO 


JSR 


R1.ISAVE3 


CMP 


-(SP).-(SP) 


BICB 


02.FLG.WRD 


CLR 


NEX.FLAG 


MOV 


0340, -CSP) 


MOV 


OINTII. SERVICE 


MOV 


04, -(SP) 


MOV 


•*3, -(SP) 


TRAP 


o7 


MOV 


8PTBL.PTR.10CS 


ADD 


O2.10CSP) 


BIT 


Ol.SlO(SP) 


BEQ 


1* 


CLR 


12CSP) 


MOV 


04, RO 


TRAP 


36 


CMP 


NEX.FLAG, O-l 


BNE 


2$ 


MOV 


9PTBL.PTR,(SP) 


MOV 


0FMT6, -(SP) 


MOV 


02. (SP) 


MOV 


SP,RO 


TRAP 


14 


BISB 


02.FLG.WRD 


TRAP 


44 


CMP 


(SP)»,CSP)* 


CLR 


RO 


TRAP 


41 


MOV 


VEC.ADDR.RO 


TRAP 


36 


MOV 


f»340.(SP) 


MOV 


OINTII. SERVICE 


MOV 


VEC.ADOR, -(SP) 


MOV 


03, -(SP) 


TRAP 


37 


MOV 


1.R3 


JSR 


PC.B00T.RC25 


MOV 


RO.RET.STPTUS 


INC 


R3 


BIT 


01, RO 


BNE 


4i 


CMP 


R3.01 


BNE 


3$ 


BIT 


01, RET. STATUS 


BNF 


5$ 


MOv 


OflOOT. FAILURE, 


MOV 


01. (SP) 


MOV 


SP , RO 



-(SP) 



I •.TEMP 
: *,TEMP 
5 *,TEMP 

; DUMMY 



; SP,* 



(SP) 



*, RETRIES 



; RETRIES 

t ♦, RET. STATUS 

i RETRIES,* 



(SP) 



1611 

1642 

164 3 
1644 



1645 
1646 
1648 

1651 

1654 

1656 
1659 



1660 

1658 

1681 

1682 
1683 



lr>86 
16^? 

1*^*5 



1\H 



1 '04 



SP,* 
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000252 
000254 
000256 
000260 
C00264 
000266 
000270 
000274 
000300 
000302 
0003C4 
0C0310 
0003 i4 
000316 
000320 
000322 
000324 
000330 
000332 
000336 
000342 
000346 
000352 
000354 
000360 
000364 
000370 
000374 
000400 
000402 
000404 
000410 
000414 
000420 
000424 
0004 30 
0004 32 
0004 34 
000440 
000442 
000444 
000450 
000454 
000456 
000460 
000464 
0004 70 
0004 76 
000500 
000504 
000510 
000512 
000514 
000516 
000520 
000524 
000526 



104414 
104444 
005726 
004767 
006000 
103016 
012716 
012746 
010600 
104414 
012716 
012 746 
010600 
104414 
104444 
C22626 
016700 
104436 
012716 
012746 
016746 
012746 
104437 
016701 
052701 
016700 
010160 
004 767 
006000 
103002 
004767 
016 716 
016746 
012746 
012746 
010600 
104414 
004767 
006000 
103002 
004767 
0O4 76 7 
006000 
103002 
0O4767 
016700 
032 760 
001410 
012/16 
012 746 
010600 
104414 
104444 
005726 
004 76 / 
006000 
103002 



OOOOOOG 



OOOOOOG 
000001 



OOOOOOG 
000001 



OOOOOOG 

C00340 
OOOOOOG 
OOOOOOG 
000003 

0000 16G 

000001 

OOOOOOG 

000002 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000003 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
004000 000022 

OOOOOOG 
00000 I 



OOOOOOG 



5$ 



6$ 



7$: 



8$: 



9$: 



10$: 



TRAP 


14 






TRAP 


44 






T5T 


CSP)* 


. 




JSR 


PC.INIT.COM. AREA 


, 




ROR 


RO 






BCC 


6$ 






MOV 


£PROT0. VIOLATION, (SP) 


. 




MOV 


♦1, -CSP) 






MOV 


SP.RO 


, 


SP,* 


TRAP 


14 






MOV 


OPORr.INIT.ERR.CSP) 


! 




MOV 


01, -CSP) 






MOV 


SP.RO 


< 


SP.* 


TRAP 


14 






TRAP 


44 






CMP 


(SP)..(SP)» 


• 




MOV 


VEC.ADDR.RO 


. 




TRAf- 


36 






MOV 


0340, (SP) 


. 




MOV 


•OUPtl. SERVICE, -CSP) 






MOV 


VEC.ADOR. (SP) 






MOV 


•3, -CSP) 






TRAP 


37 






MOV 


ISD.STRUCT*16,Rl 


J 


*, ROM. REG 


BIS 


01, Rl 


I 


*,RC*M.REG 


MOV 


RC25.AD0R.R0 






MOV 


R1.2CR0) 


> 


RC$M,REG,* 


JSR 


PC.SET.CNTLR.CHAR 


. 




ROR 


RO 






BCC 


7$ 






JSP 


PC. DECODE 






MOV 


UNIT. NO, (SP) 


, 




MOV 


LUN, -(SP) 






MOV 


OfMT5.-CSP) 






MOV 


♦3. -(SP) 






MOV 


SP.RO 


• 


SP,* 


TRAP 


14 






JSR 


PC, ON. LINE 


. 




ROR 


RO 






BCC 


8$ 






JSR 


PC, DECODE 






JSR 


PC.GET. DUST. STATUS 


• 




ROR 


RO 






BCC 


91 






JSR 


PC, DECODE 






MOV 


RET.ENJAD.RO 


i 




BIT 


04000, 22CR0) 






BE a 


10$ 






MOV 


OACTIVE.DUP. SERVER. CSP) 


• 




MOV 


♦ 1, -CSP) 






MOV 


SP.RO 


1 


SP,* 


TRAP 


14 






TRAP 


44 






TST 


CSP)* 


{ 




JSR 


PC, EX. SUP. PROG 


• 




ROR 


MO 






BCC 


11* 







SEQ 0137 
VAX-11 Rliss-16 V3 555 Paa* 17 

SPIDER$USERS:[NEALE.AZTECURCHB4.616;2 (7) 



1703 
1716 



1719 



1720 



1713 
1729 

1730 



1735 



1758 



1765 



1768 

1 795 

1801 
1804 



180* 

1814 



ZRCHB4 




Z9CMB0 RC25 DIS> 


REV B PATCH 00 


DOWN LINE LOAD f 


000530 


004 767 


OOOOOOG 


000534 


004767 


OOOOOOG 


000540 


006000 




000542 


103002 




000544 


004 76 7 


OOOOOOG 


000550 


016701 


OOOOOOG 


000554 


032761 


004000 000022 


000562 


001011 




000564 


012716 


OOOOOOG 


COO570 


012746 


000001 


000574 


010600 




000576 


104414 




000600 


104444 




000602 


005726 




000604 


000406 




000606 


016A67 


000024 OOOOOOG 


000614 


01616 * 


000026 000002G 


000622 


005005 




000624 


00476? 


OOOOOOG 


000630 


006000 




000632 


103002 




000634 


004 767 


OOOOOOG 


00O640 


005000 




000642 


005060 


OOOOOOG 


000646 


062700 


000002 


000652 


02002 7 


000110 


0OO656 


101771 




000660 


016701 


OOOOOOG 


000664 


006201 




000666 


006201 




000670 


006201 




000672 


006201 




000674 


000301 




0006 76 


042701 


177760 


000702 


02012 7 


000001 


000706 


001107 




000710 


016700 


OOOOOOG 


000714 


042700 


1 70000 


000720 


001060 




000722 


032767 


000001 OOOOOOG 


000 730 


001435 




000732 


032703 


000001 


000736 


001417 




000740 


0050O0 




000742 


105060 


OOOOOOG 


000746 


005200 




000 750 


02002 7 


000013 


000754 


00 57/2 




000756 


104443 




OOO760 


000406 




000762 


000000G 




000 764 


000142 




000 766 


OOOOOOG 




000770 


177777 




0007 72 


000010 




0007 74 


000012 




000776 


005000 





111 

5 Apr -1984 13;44;04 
23-S«?p-1983 14:13:18 





J5R 


PC, DECODE 


11$: 


JSR 


PC, GET. DUST, STATUS 




ROR 


RO 




BCC 


12$ 




JSR 


PC, DECODE 


12$: 


MOV 


RET.EN$AD,R1 




BIT 


04000, 22CR1) 




BNE 


13$ 




MOV 


OINAC T I VE . DUP . SERVER , ( SP ) 




MOV 


♦1,-CSP) 




MOV 


SP.RO 




TRAP 


14 




TRAP 


44 




TST 


(SP)* 




BR 


14$ 


13$: 


hov 


24CRD.PID.SAVE 




MOV 


26(Rl),PID.SAVEf2 


14$: 


CuR 


R3 


15$: 


JSR 


PC.REC.DATA 




ROR 


RO 




BCC 


16$ 




JSR 


PC, DECODE 


16$: 


CLR 


RO 


17$: 


CLR 


SND.BUF(RO) 




ADD 


*2,R0 




CMP 


R0.0110 




BLOS 


17$ 




MOV 


REC.BUE.R1 




ASR 


Rl 




ASR 


Rl 




ASR 


Rl 




ASR 


Rl 




SWAB 


Rl 




BIC 


$177760, Rl 




CMP 


Rl.#l 




BNE 


24$ 




MOV 


REC.Bl" ,R0 




BIC 


# 1 70000 ..RO 




BNE 


23$ 




BIT 


tfl,SW.UNATT 




BEQ 


21$ 




BIT 


*L.R3 




BEQ 


19$ 




CLR 


RO 


16$: 


CLRB 


DATETXTCRO) 




INC 


RO 




CMP 


R0.013 




BLE 


18$ 




TRAP 


43 




.WORD 


406 




.WORD 


DATETXT 




.WORD 


142 




.WORD 


DATMSG 




.WORD 


■1 




.WORD 


10 




.WORD 


12 


19$: 


CLR 


RO 



SEQ 0138 
VAX- 11 BUss-lr- V3-555 Page 18 

SPIDER $USERS: i ;NEALE, AZTEC ]ZRCHB4,B16;2 (7) 



1825 



J SP,* 



RETRIES 



I 

♦ (I) 

*,I 

I.* 



1831 
1834 



1833 
1831 
1839 
1840 
1850 
1882 



1894 



i 


* 


.RETRIES 


• 


I 




• 


* 


'I) 


I 


I 




; 


I 


, * 



1906 

1917 
1921 

192*-* 

1930 
1929 

1932 



1933 



ZRCH84 

REV B PATCH 00 



001000 
001006 
001010 
C01014 
001016 
001022 
001024 
001026 
001030 
001032 
001034 
001036 
001040 
001042 
001044 
001050 
001054 
001056 
001060 
001062 
001066 
001070 
001072 
001074 
001076 
001100 
001102 
001104 
001106 
001110 
001114 
001120 
001122 
001124 
001126 
001132 
001134 
001140 
001144 
001150 
001152 
001160 
001162 
001170 
001174 
001200 
001204 
001206 
001210 
001212 
001214 
001216 
001220 
001222 
001224 
001226 
001230 



ZRCH60 RC25 DISK FORMATTER 

DOWN LINE LOAD FORMATTER AND MONITOR TASK 



116060 

005200 

020027 

101771 

012703 

000410 

104443 

000406 

OOOOOOG 

000142 

OOOOOOG 

177777 

000010 

000012 

012716 

012746 

010600 

104414 

00054 7 

020027 

001153 

104443 

000406 

OOOOOOG 

000142 

OOOOOOG 

177777 

000001 

000100 

012716 

012746 

010600 

104414 

000525 

020127 

001175 

016700 

042700 

02002/ 

001040 

032767 

001415 

016767 

016716 

012746 

012746 

010600 

104414 

022626 

000410 

104443 

000406 

OOOOOOG 

000152 

OOOOOOG 

177777 

000001 



Jll 

5-Apr-1984 13:44;04 

23~S«p-1983 14:13:18 



SEQ 0139 
VAX-11 BUss-16 V3-555 Page 19 

SPIDER $USERS : [ NEALE . AZTEC ] ZRCHB4 . B16 ; 2 C 7 ) 



OOOOOOG OOOOOOG 

000013 

000001 



20$ 



21$ 



OOOOOOG 
000001 



000007 



22$ 



23$ 



OOOOOOG 
000001 



000002 

OOOOOOG 

170000 

000001 

000001 OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
000002 



24$ 



25$ 



MOVB 


DATETXT(RO),SND.BUF(RO) 


2 


♦cn,*ci) 


INC 


RO 


I 


i 


CMP 


R0.&13 


I 


i.* 


BLOS 


20$ 






MOV 


n,R3 


i 


*, RETRIES 


BR 


22$ 


| 




TRAP 


43 


S 




.WORD 


406 






.WORD 


SND.BUF 






.WORD 


142 






.WORD 


MSGADR 






.WORD 


-1 






.WORD 


10 






.WORD 


12 






MOV 


OCRLF t CSP) 


s 




MOV 


ftl.-(SP) 






MOV 


SP.RO 


• 


SP,* 


TRAP 


1< 






BR 


31$ 


t 




CMP 


R0.47 


t 




BNE 


33$ 






TRAP 


43 


t 




.WORD 


406 






.WORD 


SND.BUF 






.WORD 


142 






.WORD 


MSGADR 






.WORD 


- 1 






.WORD 


1 






.WORD 


100 






MOV 


*CRIF,(SP) 


, 




MOV 


#1,-(SP) 






MOV 


SP.RO 


1 


SP,* 


TRAP 


14 






BR 


31$ 


1 




CMP 


Rl,*2 


1 




BNE 


39$ 






MOV 


REC.BUF,RO 


t 




BIC 


$170000, RO 






CMP 


RO.ai 






BNE 


27$ 






BIT 


Oi.^W.UNATT 


; 




BEQ 


25$ 






MOV 


UNIT.NO.S..D.BUF 


• 




MOV 


UNIT. NO. (SP) 


• 




MOV 


0FMT7, -(SP) 






MOV 


02, (SP) 






MOV 


SP.RO 


} 


SP»* 


TRAP 


14 






CMP 


(SP)«,CSP)« 


• 




BR 


26$ 


t 




TRAP 


43 


♦ 




.WORD 


406 






.WORD 


SND . BUF 






.WORD 


152 






.WORD 


MSGADR 






.WORD 


1 






.WORD 


1 







1936 
1917 
1940 



1943 



1945 
1906 

1951 



1952 



1954 
1694 

1970 



1981 

1964 
1985 



198* 
1981 

1989 



ZRCHB4 




ZRCHBO RC25 DISK FORMATTER 




5~Ai 


REV B PATCH 00 


DOWN LINE LOAD FORMATTER AND 


MONITOR TASK 23 -S"< 


001232 


000003 




.WORD 


3 


001234 


012716 


OOOOOOG 26$: 


MOV 


OCRLF.CSP!) 


001240 


012746 


000001 


MOV 


tfl.-CSP) 


001244 


010600 




MOV 


SP,RO 


001246 


104414 




TRAP 


14 


001250 


000453 




BR 


31$ 


001252 


020027 


000004 27$; 


CMP 


R0.G4 


001256 


001027 




BNE 


30$ 


001260 


0J2767 


000001 OOOOOOG 


BIT 


Ol.SW.UNATT 


001266 


001404 




BEQ 


28$ 


001270 


012767 


000131 OOOOOOG 


MOV 


0131 .SND.BUF 


001276 


000410 




BR 


29$ 


001300 


10444? 


28$ j 


TRAP 


43 


001302 


000406 




.WORD 


406 


001304 


00OO00G 




.WORD 


SND.BUF 


001306 


000152 




.WORD 


152 


001310 


OOOOOOG 




.WORD 


MSGADR 


0013x2 


177777 




.WORD 


-1 


001314 


000001 




.WORD 


1 


001316 


000003 




■ WORD 


3 


001320 


012716 


OOOOOOG 29$: 


MOV 


*CRLF,(SP) 


001324 


012746 


000001 


MOV 


♦l.-CSP) 


001330 


010600 




MOV 


SP,RO 


001332 


104414 




TRAP 


14 


001334 


000421 




BR 


31$ 


001336 


020027 


000005 30$: 


CMP 


R0.05 


001342 


001023 




BNE 


32$ 


001344 


104443 




TRAP 


43 


001346 


000406 




.WORD 


406 


001350 


OOOOOOG 




.WORD 


SND.BUF 


001352 


000152 




.WORD 


152 


001354 


OOOOOOG 




.WORD 


MSGADR 


001356 


177777 




.WORD 


-1 


001360 


000001 




.WORD 


1 


001362 


000003 




.WORD 


3 


001364 


012716 


OOOOOOG 


MOV 


OCRLF.CSP) 


001370 


012 746 


000001 


MOV 


#1, (SP) 


001374 


010600 




MOV 


SP.RO 


001376 


104414 




TRAP 


14 


001400 


004767 


OOOOOOG 31$: 


JSR 


PC. SEND. DATA 


001404 


006000 




ROR 


RO 


001406 


103436 




HL.O 


36$ 


001410 


000437 




BR 


37$ 


00141? 


020027 


000006 32$: 


CMP 


R0.06 


001416 


001036 


33$: 


BNE 


36$ 


001420 


032767 


000001 OOOOOOG 


BIT 


Ol.SW.UNATT 


001426 


001404 




BEQ 


34$ 


001430 


012767 


000116 OOOOOOG 


MOV 


0116, SND.BUF 


001436 


000410 




BR 


35$ 


001440 


104443 


34$: 


TRAP 


4 3 


00144? 


000406 




.WORD 


406 


001444 


OOOOOOG 




. WORD 


SND.BUF 


001446 


000152 




.WORD 


15? 


001450 


OOOOOOG 




.WORD 


MSGADR 


001452 


177/7 7 




.WORD 


-1 


001454 


000001 




.WORD 


1 


001456 


000003 




.WORD 


3 



Kll 

5 -Apr -1984 13:44:04 
23-Sep-1983 14:13:18 



SEQ 0140 
VAX-11 Bllss-16 V3-555 Page 20 

SPIDER $USERS : [ NEALE . AZTEC ]ZRCHB4 . B16 j 2 C 7 ) 



: SP,* 



i SP,* 



j SP,* 



1992 



1994 
1970 

2006 

2009 

2006 
2013 



!016 



2018 
1970 

2024 



2025 



2027 



1970 

2034 

203 ' 
2034 

2041 



Ill 



ZRCH64 

REV B PATCH 00 



001460 
001464 
001470 
00147? 
001474 
001500 
001502 
001504 
001510 
001512 
001514 
001522 

001526 
001532 
001534 
001540 
001544 
001550 
001552 
001356 
001560 
001564 
001566 
001572 
001574 
001600 
001602 
001606 
001610 
001614 
001620 
001624 
001626 
001630 
001632 
001636 
001640 
001644 
001650 
00165 1 
001656 
001662 
001664 
001670 
001.674 
001700 
001702 
00] 704 
001706 
001712 
001/16 
001720 
001724 
001726 
001/32 
001736 
001740 



012716 
012746 
010600 
104414 
004 767 
006000 
103002 
004 767 
005726 
000533 
012767 
000167 
02C127 
00103 7 
016700 
042700 
020027 
101417 
020027 
001414 
020027 
001411 
020027 
001406 
020027 
001403 
020027 
001342 
012716 
012746 
012746 
010600 
104414 
000463 
020127 
001030 
016700 
042700 
02002 / 
103717 
020027 
101314 
012716 
012746 
012/46 
010600 
104414 
022626 
012/00 
010077 
000564 
020127 
001027 
016700 
042700 
00 lb6o 
020027 



ZRCHBO RC25 DISK f- ORMAHER 

DOUN LINE LOAD FORMATTER AND MONITOR TASK 



OOOOOOG 
000001 



OOOOOOG 

OOOOOOG 

004001 OOOOOOG 

000532 

000003 

OOOOOOG 

170000 

000005 

000007 

000011 

000013 

000016 

000020 

OOOOOOG 
OOOOOOG 
000002 



000004 

OOOOOOG 

170000 
000014 

000015 

OOOOOOG 
OOOOOOG 
000002 



177777 

OOOOOOG 

000005 

OOOOOOG 

170000 

000030 



5 -Apr -1984 ! "3:44:04 
23 -Sep -1983 14:13:18 



SF.Q 0141 
VAX11 Bliss-16 V3-555 Page 21 

SPIDER $ USERS : [ NEALE , AZTEC ] ZRCHB4 ,816}? (7) 



35$: 


MOV 


#cru.F,csp) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


14 




JSR 


PC, SEND. DATA 




ROR 


RO 




BCC 


37$ 


36?; 


JSR 


PC, DECODE 


37$: 


1ST 


(SP>* 




BR 


44$ 


38$: 


MOV 


04001, RET. STATUS 




JMP 


57$ 


39$: 


CMP 


HI,*."" 




BNE 


41$ 




MOV 


REC.BUF.RO 




BIC 


$170000, RO 




CM^ 


R0.05 




BLOS 


40$ 




CMP 


R0.07 




DEQ 


40$ 




CMP 


R0,£11 




BEG 


40$ 




CMP 


R0.013 




BEQ 


40$ 




CMP 


h'0,016 




BEQ 


40$ 




CMP 


R0,020 




BNE 


38$ 


40$: 


MOV 


$MSGADR,(SP) 




MOV 


0FMT1. -(SP) 




MOV 


02, (SP) 




MOV 


SP.RO 




TRAP 


14 




BR 


43$ 


41$: 


CMP 


Rl.M 




BNE 


42$ 




MOV 


REC.BUF.RO 




BIC 


01 70000, RO 




CMP 


RO.014 




RLO 


38$ 




CMP 


R0.015 




BHI 


38$ 




MOV 


OMSGADR.CSP) 




MOV 


0FMT1. (SP> 




MOV 


02 , - ( SP ) 




MOV 


<;p,ro 




TRAP 


14 




CMP 


( SP ) » . ( SP v 




MOV 


0-1 ,R0 




MOV 


R0.SRC25.ADDR 




BR 


59$ 


4*$: 


CMP 


HI, 05 




BNE 


45$ 




MOV 


REC.BUF.RO 




BIC 


01 70000.R0 




Bf.U 


38$ 




CMP 


R0.030 



I 



sn,* 



SP, * 



J SP,* 



I *.RC$M.REG 
\ RC*M.Rfcli»* 

i 
i 



2044 



2046 



2032 
1970 
2052 
2053 
18 l i4 

2062 



2067 



20 bo 
1894 

2082 



2087 



2088 
20tf*i 

2104 



Mil 



ZRCH04 

REV B PATCH 00 



001744 

001746 

001752 

001756 

001762 

001^64 

001/66 

00177,? 

001776 

002000 

002002 

002004 

002010 

002012 

002016 

002022 

002026 

002030 

002034 

002036 

002040 

002042 

002044 

002046 

002050 

002052 

002054 

002056 

002062 

002064 

002070 

002072 

002074 

002076 

002100 

002102 

002106 

002110 

002112 

002116 

002122 

002124 

002126 

002130 

002136 

002140 

002146 

002150 

002156 

002162 

002164 

002166 

002172 

002200 

002204 

002210 

002216 



101263 

C12716 

012746 

012746 

010600 

104414 

012700 

010077 

104444 

022626 

000530 

02012/ 

001120 

016700 

042700 

020027 

001232 

005767 

001013 

104443 

000406 

000000G 

000142 

OOOOOOG 

177777 

000001 

000012 

012700 

104434 

012701 

000412 

010100 

10442/ 

103004 

010011 

012702 

000401 

005002 

062/01 

020127 

003763 

005702 

001004 

02672/ 

002404 

026727 

003416 

012767 

004 767 

006000 

103002 

004/67 

012/67 

004 767 

00506/ 

012/67 

005067 



ZRCHBO RC25 DISK FORMATTER 

DOWN LINE LOAD FORMATTER AND MONITOR TASK 



OOOOOOG 
OOOOOOG 
000002 



5~Apr-1984 13;44:04 
23-Sep-1983 14:13}18 



177777 
OOOOOOG 



000006 

OOOOOOG 

170000 

000001 

000002G 



OOOOOOG 
OOOOOOG 



000001 



000002 
000776G 



000002G 000017 

000002G 000017 

17777 7 OOOOOOG 
OOOOOOG 



OOOOOOG 

006001 OOOOOOG 

OOOOOOG 

000000(1 

000000(5 000002G 

000004G 





BHI 


38$ 




MOV 


tfMSGADR.CSP) 




MOV 


#FMT1, (SP) 




MOV 


42,-CSP) 




MOV 


5P.R0 




TRAP 


14 




MOV 


0-1, RO 




MOV 


R0,QRC25.ADDR 




TRAP 


44 


43$. 


CMP 


CSP)»,(SP)» 


44$; 


BR 


58$ 


45$: 


CMP 


HI ,#6 




BNE 


56$ 




MOV 


REC.DUF.RO 




BIC 


Ol/OOOO.RO 




CMP 


R0.#1 




BNE 


38$ 




TST 


RF.C.BUF*2 




BNE 


46$ 




TRAP 


43 




.UORD 


406 




.WORD 


SND.BUF 




.WORD 


142 




.WORD 


FCT.REQ.MSG 




. WORD 


1 




.WORD 


1 




.WORD 


12 




MOV 


OiiND.BUF.RO 




TRAP 


34 


46$ 


MOV 


*FCT.BUF,R1 




BR 


50$ 


47$ 


MOV 


Rl.RO 




TRAP 


27 




BHTS 


48$ 




MOV 


R0.CH1) 




MOV 


♦ 1.R2 




DR 


49$ 


48$ 


CLR 


R2 


49$ 


ADD 


02, HI 


50$ 


CMP 


R1.0FCT.BUF*776 




BLt 


4/$ 




TST 


R2 




BNt 


51$ 




CMP 


RFC.BUF»2,417 




BIT 


52$ 


51$ 


CMP 


HFC. BUI- • i'.tflV 




Bl.F 


54$ 


52* 


MOV 


-1 .SND.BUF 




J5R 


PC, SEND. DAT A 




ROR 


RO 




BCC 


53$ 




J5R 


PC, DECODE 


53$ 


MOV 


06001, RF.T. STATUS 




J5H 


PC DECODE 


54$ 


Cl.K 


SND . BUF 




MOV 


m ( r.BUF.SND,BUF* c 




Cl.R 


SND.BUF* 4 



SF.Q 0142 
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SPIDER $USERS ; ( NEALE . AZTEC ] 2RCHB4 , B16 ; 2 C 7 ) 



j SP,* 

j *,RC$M.REG 
i RC$M.REG,+ 



i *, FCT.WRD 
t FCT.WRD,* 



; RO, FCT.WRD 
; + .FOF 

; fof 

5 *.FCT.WRD 
i FCT.WRD,* 

I EOF 



2109 



2110 



2108 
2104 
1894 

2126 



2138 

2141 



2142 
2149 
2151 



2149 



2161 



21*s 

2167 



2l^> 
21/0 
21 -'8 
.'1/9 
t'180 



ZRCHB4 

REV PATCH 00 



002226 
002230 
002232 
002236 

002244 

002246 

002250 

002252 

002260 

00226' 

0022 70 

002274 



0v'4767 
006000 
103002 
004767 
026727 
001007 
104435 
000405 
012767 

004 767 
000167 
062706 
000207 



ZRCHBO RC25 DISK FORMATTER 

DOWN LINE LOAD FORMATTER AND MONITOR TASK 



OOOOOOG 



N 1 1 

5 -Apr -1984 15:44:04 
23-Sep-1983 14tl3:16 



OOOOOOG 
000002G 



001001 
OOOOOOG 
176334 
000036 



000017 



OOOOOOG 





JSR 


PC, SEND. DATA 




ROR 


RO 




BCC 


55$ 




JSR 


PC.DtCODE 


55$: 


CMP 


REC.BUF*2,tfl7 




BNF 


58$ 




TRAP 


35 




RR 


58$ 


56$ 


MOV 


tflOOl.REr, STATUS 


57$ 


JSR 


PC, DECODE 


58* 


JMP 


15$ 


59$ 


ADD 


036 ,SP 




FITS 


PC 



SEQ 0143 
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SPIDER$USERS: [NEALE , AZTEC"JZRCHB4,B16 ;2 (7) 

J 2182 



2188 



2126 
2203 
2204 
^852 

1611 



Routine Size: 607 words. Routine Base: ABtCOOt: ♦ 0000 
Maximum stock depth per invocation; 23 words 



000000 
000000 
000004 
000006 
000010 
000012 



004767 175476 

104466 
006000 
103/73 
000207 



.SBTTl. Tl DOWN LINE LOAD FORMATTER AND MONITOR TASK 



$T1 



Tl: : 






1$: 


JSR 


PC 




TRAP 


66 




ROR 


RO 




Bl.O 


1$ 




RTS 


PC 



; Routine Size: 6 words, Routine Rose: AB$CODE ♦■ 2276 
; Maximum stack depth ^>t:r invocation: 2 words 



2211 end 

2212 

2213 eludom 



OTS external references 
.GLOBL $SAVE3 



PSECT SUMMARY 



Psect: Name 
AB$CODE 



Words 
613 



Attributes 
RG , I 



LCL. REL, CON 



y i le 
SPIDER SUSERS: I NEALE, AZTEC] ZRCHBO, L 16; 2 



LIBRARY STATISTICS 
Total 
398 



Symbols - ■ ■ 

Loaded Percent 



160 



42 



Blocks 
Rend 



38 



7RCHB4 

Rt- V H PATCH 



00 



/RChBO RCriS DISK MjHMAUfcR 

DOWN LINE LOAD FORMAT TfcR AND MONITOR TASK 



<:3 



Apr 



1984 
19o3 



SF.Q 0144 
13j44j04 VAX 11 Hli«* If, V* ViS P»q« rf4 

14j 13 j la 5PlDtR>USERSjlNKALE.A/T£C)^RCNB4.B16(i2 (7) 



COMMAND QUALIFIERS 



BLISS /PDPllAIST /RCHB4.HW. 



S i »*«: 

fr ifH>sed T I rtx • 

Memory i'*edj 



i\ 



b1 3 codt » 
00:^4. ; 
IV: 14. 8 

^86 p»tf«s 



data words 



j Compilation Complete 



CI, 



/RCHBS 



0001 
000.' 
0005 
0004 
0005 
0006 
000 7 
0008 
000** 
0010 
0011 
0012 
0015 
0014 
0015 
001b 
150b 
1506 
150/ 
150fl 
1509 
1510 
1511 
1512 
1513 
1514 
l\-'.5 

151/ 

rue 

1519 
1520 
1521 
15?,? 
1W5 
1524 
1525 
1526 
152/ 
1528 
15/9 
1550 
1551 
1V52 
1555 
15 54 
15 55 
15 56 
155/ 



ZRC'HBO RC25 DISK FORMATTER 



5 Apr 1984 15 j 46 $24 
11 Jan-19H4 15i25'12 



SrH 0145 
VAX U BHss-16 V^ 555 Page 1 

SPIDcR*U5ERSj(NF.ALE,A/TEC]/RCHB5,B16;4^1) 



MODULE ZRCHB5 (eVTITLE ' ZHCH60 RC25 D r SK FORMATTER 

IDFNT - 'REV B PATC XV , 
ADDRESSING MODE (RELATIVE) , 
ENVIRONMENT (NOfcIS) 
) • 

BEGIN 

#sbttl 'MODUF DFCl.ARATIONS' 



Pretty Declaration** 
< b 1 f / lowerc as* ..key* 



1 Ibrary 'ZRCHBO' j 
require ' Bt SMAC.REQ' j 



•Define RC25 Formatter library 
! Define Bllas Macro require file 



A forward- rout i ne declaration declare* a name to be a routine name who**© 
definition !• given later in the seme bloc^t and associates with that name the 
set of attributes needed for generation of call to the named routine. 

he following is a list of all routines declared within this module and can 
e noted that this module is only place where global routines are declared, 



T 
be 



*or*ard routine 
LOAD FILE, 
GET NSD. 
GET NRD, 

LOAD^OUTISTD BUF , 
GET .CMDIREF, 

DECODE : novalue, 

DUPII SERVICE : INT_LNK*TyP novalue, 

CTO.WAIT, 

ABORT, 

GET DUST STATUS, 

EX. SUV PROG, 

EX LOC PROG, 

SENO DATA, 

REC DATA, 

SET .CNTLK CHAR, 

ON LINE. 

INTII SERVICE 

IS. TIMER, 

BOOT RC25, 

INIT COM^AREAj 

!<ULF/PAGE> 



INT .LNKHYP nov&lue, 



Loeo file from local load media 

Get next *mr\4 descriptor slot Inde^ 

Get next receive descriptor slot index 

Load out standing command buffer 

Get unique command reference number 

Decode return status error code 

Dup/UQ port interrupt service routine 

Command time out wait 

Abort Dup command 

Get Dust Statuu command 

Execute Supplied Program command 

Execute Local Program command 

Send Data command 

Receive Data command 

Set Controller Character I st ic* command 



On I 
Ini t 
lnit 
Ini t 
lnit 



nt command 

all/ation sequence Interrupt service 
ali nation sequence time out wait 
ali/e sequence for RC25 controller 
al»*e UU Port communication area 



/RCHBS 

REV B PATCH 00 



1556 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
15b2 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 



ZRCHBO RC25 DISK h ORMATTER 
MODULE DECLARATIONS 



Mr.' 

5 Apr-1984 l.':46:24 

ll-Jon-19H4 13:23:12 



VAX-ll Rl iss-16 V3 555 '^P^ge* 2 

SPIDERWSER5: [NEAl E.AZTEC)ZRCHB5.B16i4 (2) 



The psect nnmed "code or tcodel" Is redffinded here to be called "ac*code". 
This Is done to organize formatter routine code into a seperate psect, 

psect 

code - ac$codei 

» ♦ 

! Structure declarations used within this module, 
; 

structure 



RC25 register accessing structure. This „lructure ollows RC25 register 
accessing to be transportable between the PDP-11 and VAX Diagnostic Supervisors. 

This also defines an access algorithm for VAX to allow field reference 
to MBA address space without generating machine checks. 

RC25 [0. P, S, E] - 

begin 

local 

RC*5..REGi 

RC«S_REG - .CRC25 ♦ *upval*U)<Q, *bpval, Q> t 

RC$S_REG 

end 

<P. S» EM 



I <blf/page> 



E12 



7RCH65 

REV B PATCH 00 



1571 

1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
158') 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
160? 
1608 
1609 
1610 
1611 



ZRCH60 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



! External Declaration of 



5-Apr-1984 13;46;24 
ll-Jan~19B4 13:23:12 



datums declared outside of this module. 



SEQ 0147 
VAX-11 Bliss-16 V3 555 Page 

SPIDER$USERSs[NEALE.AZTEC]ZRCHB5.Bl6;4 (3) 



external 



Communications area declarations 

C0M_AREA ; blockvector [REALLOCATE ♦ SNO.ALLOCATE • HDR SIZ, 2, word], 

HEAD„AREA : ref block [4, word] field (HOR FIELD), 

RECEIVE_RING : ref blockvector [REC ALLOCATE, 2, word] fi«i.-.» tDSC FIELD), 

SEND ..RING : ref blockvector [SN0_ALL0CATE , 2, word] field (C .\C. FIELD) , 

REC_ENVELOPE : blockvector [REALLOCATE, RB SIZE ♦ 2, word] field (ENV FIELD), 

SND_ENVELOPE : blockvector [ SNO. ALLOCATE , SB. SIZE ♦ 2, word I field (ENV FIELD), 

RET„EN$AD : r^f block [RB_SIZE ♦ 2, word] field (ENV FIELD), 

REC.BUF : block [RECB_5IZE, word] field CRECB FIELDS 

SN0_BUF ; vector [SN0B„SIZE, word], 

OUT$STD_BUF : blockvector [REC_ALL0CATE , 2, word] field (OUTSFIELD), 

Miscellanious external data declarations 



NEX_FLAG 

NRD.SLOT 

NSD_SL0T 

RC25 ADDR : 

RET STATUS 

PID SAVP : 

VEC ADDR : 

RSVD.STRUCT 

ISD_5TRUCT : blockvector 

UNIT.NO : word, 

NXT.CRN : byte. 



word, 
word, 
word, 

ref RC25 field (ISD_FIELD), 
: word, 

vector [2, word], 
word, 

vector 



[4, 



word! , 
[4, 2, 



Error Messages Structures 



PFE_STRUCT : vector [23] 



EMSG STRUCT 
RC STRUCTURE 
SOUP STRUCT 
SMSCP.STRUCT 
■<blf/page> 



vector [23], 
vector [39], 

vector [7], 
vector [13], 



{Non-existent RC25 register flag 
•Next receive descriptor slot 
.•Next send descriptor slot 
•Controller reg access struct 
.•Global return status location 
JSaves program Indicator field 
!RC25 interrupt vector address 
{Stores init seq resvered fields 
word] field (ISD.FIELD), !Init seq data 
!P_.table unit number to format 
! Stores next cmd r«sf number 



•Port fatal error msg struct 
•E^ror messao* structure 
IRC25 SA register fatal error 
! DUP return status code messages 
•MSCP return status code messages 



F12 



ZRCH65 

REV B PATCH 00 



1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
162V 
1628 
1629 
1630 
1631 
1632 
1633 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



Formatted asc i i strings 

PID FMT» 
FMT4, 

DM code parameter declarations 



5 -Apr -1984 13 -46:24 
11 -Jan- 1984 13:23:12 



SEQ 0148 
VAX-11 Bliss-16 V3-555 Page 4 

SPIDER *USER5$[NEALE. AZTEC ]ZRCHB5.B16;4 (4) 



! Process indicator printing string 
♦Micro code version printing format 



The following declarations are declared in module a2kel6 'DM code 
module' and point to the starting address of specific DM code buffer areas. 

COVSA Is declared in azkel2 and is a memory location however) 

It is a hack but the azfmtr storage allocation must be edited in manually 

any time the DM code buffer charts. Get this value from the output of 

DMC0NV program, (Bliss wants this allocation value to be a compile time constant). 



AZFMTR ; vector [8989. word], 

HDSA, 

DMSA, 

OVSAi 



!RC25 formatter DM code buffer 
•Host DM code header address 
JHost DM code initial load address 
IHost First overlay address 



G12 



ZRCHB5 

REV B PATCH 00 



1634 
1655 
1636 
1637 
1638 
1639 
1640 
lb41 
1642 
1643 
1644 
1645 
1646 
1647 

1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 

1668 
1669 
1670 
1671 
167^ 
1673 
1674 
1675 
1676 
167 7 
1678 
16 79 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
168/ 
1688 
lb89 
1690 



ZRCH60 RC25 DISK f-ORMATTER 
MODULE DECLARATIONS 



5-Apr-1984 13:46:24 
11 -Jan -1984 13j23;12 



VAX -11 Bliss -16 V3-555 

SPIDER IUSERS : [ NF.ALE . AZTEC URCHB5 



SEQ 0149 

Page 5 
B16j4 (5) 



global routine LOADJ'ILfc (BUF.LOC, FN..EXT, BUF.SIZ) - !Load file from local load maedia 

• ♦ 

Functional Description : 

This multi-purpose routine is used to read in files from the boot 
device into host memory space at the specified buffer address, 



Formal Parameters 
BUF.LOC 



FNJEXT 
BUF.SIZ 



Implicit Inputs 
none 

Implicit Outputs 
none 

Completion Codes 
FRE CODE 



This contains the host memory address where 
Mords read in from the boot device are to 
be loaded. 

This contains a pointer to an asciz string 
of the file name to be read in, 

This contains the number cf words allocated 
for the buffer where the file it to be read 
In, This is used for protect against buffer 
over runs. 



PAS, CODE 



Is returned If the end-of-file indicator is 
not returned before the buffer is full. 

Is returned if end-of-file indicator is returned 
before the buffer is full. 



Side Effects : 

Data previously loaded in the specified load buffer is 
destroyed by the incomming file from disk. 



begin 

local 

NEOF, 
EOB; 

O^EN ( .FN EXT) } 

EOB - (.BUF_SIZ*2) » .BUf_L0C; 



!Return status from getword macro 

!fcnd of buffer address storage 

!0pen the file for input 

.•Calculate the last buffer address 



Read the first blocW from the input file and through 
it away since it only contains RT-11 information. 



incru < from to «?55 do 
begin 

CitTwORO ( , BUF.LOC ){ 



HI 2 



ZRCHBb 

REV B PATCH 00 



1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



5-Apr-1984 13:46:24 
U-Jan-1984 13:23:12 



SEQ 0150 
VAX-11 Bliss-16 V3-555 Page 6 

SPIDER $USERSs(NEALE. A/TEC JZRCHB5.B16 ;4 (5) 



Loop on getting a word From the load file. After 
Increment to the next word by adding #o'2' v 'o the 
buffer load addrss. Continue getting words until 
the not complete indicator is returned (0) or the 
buffer is over run. Return an error code If the 
buffer is over run. 



do 

begin 

NEOF - GETWORD (.BUT LOO; 

BUFJ.0C * ,BIF_L0C * *o'2' \ 

end 
until ( not .NEOF) or C.BUF..L0C eqlu .E0B)j {Repeat until eof or buf overrun 



♦Read next word into . mem_loc 
! Increment to next word 



Return an error code if not eof CneoF * 1) else close the flic and return a pass code 



if .NEOF 
then 

return RET_STATUS - FRE.CODE 
else 

begin 

CLOSE: 

end: 

return RET_STATUS * PAS^CODE: 
end: 



!Was the eof indicator returned 
JReturn error code to caller 

!Eof was returned so close file 

JReturn a pass code to the caller 



TITLE ZRCH85 ZRCHBO RC25 DISK FORMATTER 

IDENT /REV B / 

GLOBL COM. AREA, HEAD. AREA, RECEIVE. RING 

GL06L SEND. RING, REC .ENVELOPE , SNO. ENVELOPE 

GLOBL RET.ENIAD, REC. BUT, SNO . BUT , OUTiSTD.B'Jf 

GL06L NEX.FLAG, NRD.SLOT, NSD.SLOT. RC25.ADDR 

GLOBL RET. STATUS, PID.SAVE, VEC.ADDR 

GLOBL RSVD. STRUCT, ISO. STRUCT, UNIT. NO 

GLOBL NXT.CRN, PFE. STRUCT. EMSG. STRUCT 

GLOBL RC. STRUCTURE, SDUP . STRUCT, SMSCP STRUCT 

GLOBL PID.FMT, FMT4, AZFMTR, HDSA, DMSA 

GLOBL OVSA 



000000 

000000 004167 OOOOOOG 

000004 016600 000014 

000010 104434 

000012 016600 000012 

000016 006300 



000020 016^02 
000024 060200 



000016 



.SBTTL 
.PSECT 

LOAD. FILE: : 
JSR 

MOV 

TRAP 

MOV 

ASL 

MOV 

ADD 



LOAD. FILE MODULE DECLARATIONS 
ACJCODE, RO 



R1.ISAVE3 

14(SP),R0 

34 

12(SP),R0 

RO 

16(SP),R2 

R2.R0 



; FN, EXT,* 
i BUF.SI/.* 
; BUF,L0C»* 



16 34 



lo7o 



112 



ZRCH65 

REV B PATCH 00 



000026 
000050 
000032 
000034 
000036 
00CC40 
000042 
000044 
000050 
000052 
000056 
OOOGfO 
000062 
000066 
000072 
000074 
000076 
000104 
OOOUO 
000112 
000116 
000120 
000122 
000124 
000130 
000134 
000136 
000140 
000144 
000146 



010003 
005001 
010200 
104427 
103001 
010012 
005201 
020127 
101770 
016600 
104427 
103005 
010076 
012702 
000401 
005002 
062766 
032702 
001403 
026603 
001355 
006002 
103005 
012700 
010067 
000207 
104435 
005067 
005000 
000207 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



000377 
000016 



000016 
000001 



000002 000016 
000001 

000016 



005001 
OOOOOOG 



5-Apr~1984 13:46:24 
ll-Jan-1984 13:23:12 





MOV 


R0.R3 




CLR 


Rl 


1$^ 


MOV 


R2,R0 




TRAP 


27 




BHIS 


2* 




MOV 


R0.CR2) 


2$: 


INC 


Rl 




CMP 


Rl,#377 




8L0S 


1$ 


3*: 


MOV 


16CSP),R0 




TRAP 


27 




BHIS 


4$ 




MOV 


R0,B16(SP) 




MOV 


01, R2 




BR 


5* 


4$: 


CLR 


R2 


5$: 


AOD 


02.16CSP) 




BIT 


#1.R2 




BF.Q 


6i 




CMP 


16CSP),R3 




BNE 


3i 


6$: 


ROR 


R2 




BCC 


7* 




MOV 


05001 ,R0 




MOV 


RO. RET. STATUS 




RTS 


PC 


7$: 


TRAP 


35 




CLR 


RET. STATUS 




CLR 


RO 




RTS 


PC 



Rout ine 
Max I mum 



:> ■ ze: 
stack 



OOOOOOG 



52 words » t Rc-utine Base: ACJCODE ♦ 0000 

depth per invocation: 6 words 



SEQ 0151 
VAX-11 Bliss-16 V3-555 Page 7 

SPIDER*USERS:[NEALE,AZTEC)ZRCHB5.B16;4 (5) 



*,E0B 

I 



; RO,* 

J I 

I I,* 

; BUf\LOC,+ 



j RO.BUF.LOC 

I *,NEOF 

{ NEOF 

: *,BUT.LOC 

i *,NEOF 

i BUT.LOC.EOB 

: NEOF 



1685 
1687 



1685 
1701 



1702 
1^04 



1710 
1712 



1714 
1718 
1671 
1634 



1720 



J 12 



ZRCHB5 

REV B PATCH 00 



1721 
1722 
1725 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 



ZRCHfiO RC25 DISK FORMATTER 
MODULE DECLARATIONS 

global routine GET..NSD * 



5-Apr-1984 13:46-24 
ll-Jan-1964 13:23:12 



SEQ 0152 
VAX-11 Bliss-16 V3-555 p og « 8 

SPIDER$USERS:[NEALE,AZTEC]ZRCHB5.B16;4 (6) 



! Chooses the next send slot 



Functional Description : 

This routine Mill determine which send ring descriptor the port/controller 

Is polling and returns that dsc slot number to the colling routine. 

This host program will call this routine each time it wishes to deposit 

another command into the command (send) ring. 
Formal Parameters : 

none 
Implicit Inputs : 

NSD„SL0T : Global storage for the next send descriptor slot. 

Stores where the host should place this command for 
processing by the port/controller. 
Implicit Outputs : 

The global stcrage "Nsd_slot" is updated to the 

present send slot where the port/controller is polling. 
Completion Codes : 

Returns the contents of "Nsd_slot" to the calling routine, 
S-de Effects : 

none 



begin 

Increment the next vend descr iptor_slot by one 

NSD.SLOT - .NSD.SLOT + 1; 
j 

! Set the slot pointer back to zero If it wraps arc md to the top of the ring 
if .NSD^SLOT gtru SND_ALL0CATE - 1 then USD ..SLOT - ZERO; 



Return the next send descr iptor.slot to the caller 

return ,NSD„SL0Tj 
end j 



O00000 0C5267 OOOOOOG 



000004 
000012 
000014 
000020 
000024 



02672 7 

101402 
005067 
016/00 
000207 



OOOOOOG 000003 

OOOOOOG 
OOOOOOG 



.SBTTL GET.NSD MODULE DECLARATIONS 
GET.NSD:: 

INC NSD.SLOT 

CMP NSD.SLOT ,03 

BLOS H 

CLR NSD.SLOT 

1$: MOV NSD.SLUT.RO 

RTS PC 



1'.'48 
1753 



1/44 
1721 



Routine Size: li words, Routine Base: ACJCODE ♦ 0150 
Maximum stack depth per invocations words 



1760 



K'1.2 



ZRCHB5 

REV B PATCH 00 



1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
178 7 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 



ZRCH60 RC25 DISK FORMATTER 
MODULE DECLARATIONS 

global routine GET_NRD - 



5-Apr-L944 13:46:24 
11 -Jan -1984 13:23:12 



SEQ 0153 
VAX-H Bliss-16 V3-555 Page 9 

SPIDER $USERS : I NEALE . AZTEC 1ZRCHB5 . B16 ;4 C 7) 



\ Chooses the next receive slot 



Functional Description ? 

This routine will determine which receive ring descriptor the port/controller 

Is polling and returns that dsc slot number to the calling routine. This 

host program will call this routine each time it wishes to process another 

receive ring descriptor. 
Formal Parameters : 

none 
Implicit Inputs : 

NRD_SL0T : Global storage for the next receive descriptor slot. 

Stores where the port should return this commands 
response indicator. 
Implicit Outputs : 

The global storage "Nrd^slot" is updated to the present receive slot 

wh<ire the port/controller Is polling. 
Completion Codes ; 

Returns the contents of "Nrd_slot" to the calling routine. 
Side Effects : 

none 

begin 
j 

! Increment the next receive descr iptor^slot by one 

NRD_SL0T ■ .NRD„SL0T ♦ lj 

! Set the slot pointer back to zero if it wraps around to the top of the ring. 
; 

if .NRD_S1.0T gtru REC_ALL.0C.ATE •• 1 then NRD.SLUT * ZERO; 

■ Return the next receive descr iptor„slot to the caller 
i 

return .NRD.SL0T; 
end; 



000000 005267 0OOO0OG 



000004 026 727 

000012 101402 

000014 005067 

000020 016700 

000024 000207 

; Rout Ine S i zc i 

i Maximum stack 



000O00G 000003 

OOOOOOG 
O000OOG 



GET.NRD;; 

INC 
ChP 



.SBTTL GET.NRD MODULE DECLARATIONS 



1$: 



CLR 
MOV 
PTS 



NRD.Sl.OT 

NRD.SL0T.fr3 

1$ 

NRD.SLOT 

NRD.SLOT.RO 

PC 



1788 
1793 



1 784 
17*1 



11 words, Routine 8ase ; AC*CQDE f 01?b 
depth per invocation; words 



1600 



LI? 



ZRDB5 

REV B PATCH 00 



1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1825 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

184,. 

1843 

1844 

1845 

1846 

184 7 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 

global routine LOAD_OUT$STD_BUF (REF_NUM) - 



5-Aop-1984 

ll-Jan-1984 



13:46:24 

13:23:12 



VAX-11 Bliss 
SPIDERJUSERS 



5EQ 0154 
16 V3-555 Page 10 

[NEALE.AZTEC)ZRCMBS.B16|4 (8) 



!Load outlstd.buf Per with this command 



Functional Description 
The outstanding 



command buffer 



'out$std_buf " is used by 
this host program to determine if an outstanding command 
issued to the port has been processed yet. This is done 
by examining the receive flag 'Rec„flg' in a buffer -ulot 
for a ' 1' which is set by the interrupt service routine 
during response ring interrupts. 

This buffer can be looked at as a window between the port 
driver receiving £ processing the response envelopes and the 
host class driver issuing commands to the port. 



This routine loads 
following values: 



into an empty out$std_.buf slot the 



1. This commands reference number, 

2. Clears ' rec._f lg* indicating this command Is outstanding, 

3. Clears out the second word in slot where the returned 
envelope address will go, 

IMPORTANT NOTE: 

To quarentee a commend loaded into the out lstd_buf fer will 
never be lost (i.e. having this routine return a buffer 
slot not yet received by the interrupt service routine), 
only the cto_wait (controller time out wait) routine is 
permitted to return a outlstd.buf slot to the unused pool 
(i.e. by loading a slots first word with *o* 100000'). 
This routine is therefore guarenfceed to return an unused 
OutJstd buffer slot when this unique value of *o' 100000' 
is found. To further quarentee this, unique command ref 
numbers will never use zero as a reference number. 



This is the unique reference number of this command set to the port 



Formal Parameters : 
REF..NUM 

Implicit Inputs : 
none 

Implicit Outputs J 
none 

Completion Codes : 

The outstanding buffer slot index where this command was put 
is routines value and is returned to the caller. 

Side Effects ; 
none 



begin 



: » 



ZRCHB5 

REV B PATCH 00 



1858 
1859 
1860 
1861 
186? 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
18/6 
187/ 
1878 
1879 
1880 
1881 
1882 



ZRCHHO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



Ml 2 

!i -Apr -1984 13:46:24 
U-Jan-1984 13:23:12 



SF.C1 0155 
VAX-11 Bliss-16 V.V-555 Page 11 

SPiDERJUSERS: [NEALt. AZTEC )ZRCHB5.B16;4 C8) 



Search through the out standing command buffer and look for the first 
open slot. Return this first slot index to the caller if one is Found, 
IF no open slots are found then return an error code, 



incru i from to REC .ALLOCATE - 1 do 



J Find the first open slot 
• An open slot Is by definition the value *o' 100000' in the slots 



first word. 



if ,0UT$STD„BUF [,i. CMD.WRDl eqlu *o' 100000 
then 



!Is this slot open 



begin 

OUTJSTD BUT [ . 
0UT*STD HiJF [ . 
0UT$$TD~BUF [, 
return . i ; 

end; 



REC_F'LG] - FALSE; ! Clear the received flag 
CMD.REF] - .REF NUMj !Load this cmd' s ref num 
ENV..ADR] * 2ER0; ! Clear the previous env adr 

J Return buffer index to caller 



The buffer is full if the code reaches nere . This should r\c^er happen so 
report an error for debug purposes. 



return RET.STATUS 
end; 



0BF„C0Dti 



JReport an 'out$std buffer full*' error 



000000 004167 Q00000G 



000004 
000006 
000010 
000012 
000014 
000020 
000022 
000026 
000030 
000034 
000040 
000044 
000046 
000050 
000052 
000056 
000060 
000064 
0000 70 



005001 
010100 
006300 
006300 
012/02 
060002 
021227 
001010 
042 M 2 
116612 
005060 
010100 
00020 7 
005201 
020127 
101/53 
012/00 
01006 7 
000207 



Rout ! ne 

Max i mum 



Size: 
stack 



000000G 

100000 

100000 
000010 
000002G 



000003 

002001 
000000G 



2$ 



SSAVE2 



. SBTTL LOAD . OUT t STD ♦ BUF 
LOAD. OUT tSTD.BUF: : 

JSR 

CL.R 
1$; MOV 

ASL 

Af>L 

MOV 



MODULE DECLARATIONS 



RO 



BUF.R2 



29 Mords , Routine Base: 
depth per invocation: 4 words 



Rl 

Rl 

Rl 

RO 

RO 

OOUTSSTD 
ADO R0.R2 
CMP (R2).fl 100000 
BNE ?.t 

B.IC #100000, (R2) 
MOVB 10(SP),(R2) 
CLR 0UT*5TD.BUF>2(R0) 
MOV R1.R0 
RTS PC 
INC Rl 
CMP R1.03 

bi.os i$ 

MOV 02001.RO 

MOV RO, RET, STATUS 

RTS PC 

AC $ CODE ♦ 0224 



1801 
1863 
1868 



REF. NUM, 



18/1 
18 /2 
18/ ' 
18 70 

18*3 



1SH1 
1801 



1883 



N12 



/RChTO 

REV B PATCH 00 



1884 
1885 
1886 
188? 
1888 
1889 
1890 
1391 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 

1900 
1901 
190? 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
191? 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
19iM 
19.V 
1923 
1924 
1925 
1 926 
1927 
1928 
1929 

1930 
1931 
1932 
1933 
1934 
1935 
1936 

193; 

1938 
1939 
1940 



ZRCHUO RC25 DISK FORMATTER 
MODULE DECLARATIONS 

global routine GET_CMD*REF = 



5 -Apr -1984 13; 46: 24 
11 -Jan-1984 13:23:12 
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♦Gets next unique cmd ref number 



Functional Description : 

A 32 bit unique non-zero number used to i d<»»i: i fy host commands 
Class drivers should supply a unique refer.:.-- •? number in each 
command that the send to a DUP server. A ^2rjs driver may supply 
a zero reference number if it does not n^td to »sooc*ate » command 
with its er\d message. 

Command reference numbers must be uniq-. .> across ull commands that 
are outstanding on the same connection i.e., they wuf;t. he unique 
across all outstanding commands issuer' by a si nolo cla^s driver 
(Host) to a single DUP server. The class driver m>*y re -use a 
commands reference number when the command is no longer 
outstanding -- i.e., after receiving the commands end message or 
after re- synchron i z ing with the DUP server. Corrfnand reference 
numbers need not be inique for commands issued by different class 

drivers i.e. concnands issued by different hosx or commands for 

diffeent DUP servers from the same host. Therefore controller;; 
must internally use the combination of a command reference number 
and the connection on which the command was received as the unique 
identifier of an outstanding command, 

Ihis routine will generate a unique command reference number and 
will search the outstanding command buffer to see if already uesd. 
The first unused unique command reference found will be returned 
to the calling routine. 

Formal Parameters : 
none 

Implicit Inputs : 

NXT^CRN Thi'j global location stores the next unique cmd 

reference number to be used, 

Implicit Outputs : 

NXT_CRN Th.s global location is loaded with the ne*t 

un i gue command reference number. 

Completion Codes : 

The contents of ,NXT_CRN is returned to the calling routine. 

Side Effects : 
none 



begin 

local 

DONE ; 

Increment the global unique command reference number before anything is done 
NXT..CRN = ,NXT„CRN ♦ 1; 



) 



JTRCHBS 

REV B PATCH 00 



1941 
194? 
1945 

1944 
l^S 
194t» 

i V M ,' 
1^48 
194^ 

19M 
l**v 

r»M 

19S4 
19 V, 
19 r >6 
19 r >/ 
19*>H 
19S9 
I960 
1<»M 
l'#6.* 
19M 
1<*>4 
19t>S 

i'*>*. 
1%; 

i9t> i * 

l'»/0 

i9/i 

l^/<" 

19 M 
19M 

19/S 
19 /6 
19// 
1«*/B 
19/9 
1980 

1 9a t 

19o»> 
198*. 



ZRCmBO RC*?5 DISK FORMATTER 
MUOme DECLARATIONS 



S Apr -19S4 13i46i«?4 
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SF.O 015/ 
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Repeat generating and eearching the outstanding command buffer until a 
uoiqut command inference number »« found, 



do 



big In 
OR'AK; 



J Flag any operator control C'a 



Urap thi* nent command reference number around 
back to one if i* is greaier than i>SS ^decimal), 



if .NXT. CRN gtr 2bS then NXT..CRN • lj 
DONE • TRUE i 



!Clear tha all done Indicator flog 



Now aaarch tha outletd bu # fer for thia command 
rtfftrict nLiW>«r. If not thara than don* etay* 
trut and the loop will end elee increment to the 
n»nt uoiQua command r^f number ctn<^ make done falee 
to continue the loop, 

Incru i from to REC ALLOCATE 1 do 'Search buffar for tr»i« cmd raf num 

• f .OUTISTO BUT (.1, CM0..REF) eqlu ,NxT CRN *0oea it already e*i*t 

then 

beoin Jit already etiete 

NXT CRN • ,NXT_OlN * li 'Try tha n#»t eeoA>ential cmd ref num 

DONF • FALSE | 'Mat a coda loop again 

e* it loop i J Eh Jt thi a Incr loop 

and| 



and 
until .DONE i 



{Repeat loop vjnt \ I done 



Return the un i Que command reference number to the caller, 

return ,NXT..CRNi 
end i 



OOOOOO 010146 



SHfH l»( T.rHDIRt-r MODULI- UrClARATIONS 



OOiXXV 
OOOOOO 
OOOO10 
OOC014 
000016 
0000.'4 
u00u.''6 
f»0O0 V 
0000 S4 



10V6/ 
1044..V 

0KV01 
O0SOO0 
l.^CVw 
00 1 004 
106.'*./ 
O0SO01 
0004 OS 



C 000000 
000001 

co^ooox; oooooog 
ooooooo 



LET 


CM0$R(l : : 






MOV 


Rl, ISP ) 




MCh 


NXT .CRN 


If: 


TRAP 


8 « 




MOV 


«1 .Rl 




CI R 


RO 


c>»: 


CMPH 


OUTISTD.HU* (rtOhNxl .CRN 




t*M 


?l 




INCH 


NxT ,CRN 




Cl M 


HI 




UR 


41 



• .OHM 

I 



UONt 



lHrt4 

I'M • 
l-*'ir. 

l'#f.M 

1 ' * I 

I * V 



j?RCHU!> 

Rev H PATCH 



00 



000056 
00004^ 
000046 

0000 c >0 

oooov 

OOOOM 

oooor^b 

OOOCH.J 
000064 



06<>/00 
O20O.7 7 

101765 
006001 
1033S5 
OO r >000 
1S6/00 
01^601 

ooo.'o; 






^RCHBO RC t lC > DISK MiHMATTKR 
MODU E DECLARATIONS 



000004 
000014 



OOOOOOG 



5$: 



4$ 



CI 



/ 



% \ Apr i<>«4 15] 46 1,^4 
11 -Jan -1964 13t23il2 



ADO 


*4,R0 


ChP 


R0.014 


HI OS 


,'♦ 


Ron 


Rl 


occ 


11 


CI R 


RO 


B [SB 


NXT.CRN.RO 


MUV 


( l iP)*,Hl 


RTS 


PC 



iV Nords, Routine Ha»« : ACICOUK ♦ 0316 
depth per invocation; 5 words 



VAX U Rl ;*«, 16 V^ liiiS 
SPIOFRIUSF.RSHNEALE.A^TEC^RCHB'J.Blb^'c^J 



P»g« 14 



I,* 

DONE 



IWj 

l'#/ / 
l'i'.i 
1084 



1984 



01 



3 



REV B PATCH 



00 



{ 



1955 
1**66 

196 7 

1938 
1989 
1990 
1991 
199/ 
1993 
1994 
19^5 
199f, 
199 7 
1996 
1999 
2000 
2001 
2002 

200 3 

2004 

2005 
200b 

2007 

200 6 

2009 

poic 

2011 

2012 

2013 

2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 

202 7 
2028 
2029 
2030 
2031 
2032 

203 3 
2034 
2C35 
20 56 
20 3 / 
20 38 
2039 
2040 
2041 



ZHCHHO RC»'S DISK K)RMATTER 
MODULE DECLARATIONS 

global routine DECODE s novalue 



S -Apr -1964 13:46:24 
It Jan -1984 13:23?12 



VAX U Ri;«s-1* V3 r JS> ,F(J P™ 9 15 
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JDecodes failing SA reg data 



Functional Description ; 

Due to the impl imentat ion of the DlJP and UQ Port protocol there 
are two levels at which an issued command to a port/controller 
car* fail and they are: 

1. The issu«d command can time out. 

2. An trror can be posted in SA register bit 15 by the port to 
report an error. 

3. The issued command to the port/controller can be executed 
correctly without &r\y errors but the 
field could have an error or status 



responoe 
other than 



packet status 
success posted 



These errors or status 1 s 
routine which queued the 
"RET STATUS", The host 



returned are 
0UP command 



all 

v i a 



returned to the host 
the global storage 
to port/controller communications 
connection having the highest priority (ie» if the Sh R< 
bit is set the DUP interrupt routine returns a PPE 
code is passed up to the calling hort 
intercepted by any routine on the way uc- ) , 



rg error 
CODE and this 
routine with out being 



This routine will then be called when the return from a queued 
command comes back with ao error code or non successful 1 status 
code. This Is by definition when bit in the returned status 
is equal to 1. 



An appropriate 
error , 

Formal Parameters : 

none 

Implicit Inputs : 
RET„STATUS; 



recovery action will be done for each individual 



Stored in this global storage ; s the returned trror 
code or non -successful statu*; code from a queued 
command. 



Implicit Outputs : 
none 

Completion Codes : 
none 

Side Effects : 

All formatter errors are fatal, therefor after execution 
of this routine the RIV5 controller is Initialised 
aborting any DM code running in the controller, 



beg ; n 

local 

sa..vai ue. j 



J Save SA register fatal error code 



hi 6 



ZRCHeS 

REV B PATCH 00 

204 J 

2043 
2044 

2045 

2046 
204 7 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2056 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 

206 7 

2068 
2069 
20/0 
2071 
2072 
2073 
20 74 
2075 
2076 

207 7 
2078 
20 79 
2060 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2095 
2094 
2095 
2096 
209/ 
2093 



ZRCMBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



5~Apr-19A4 13 { 46j24 
ll~Jan~1984 13:23:12 



SEQ 0160 
VAX 11 BLi'?g-lS W555 Page 16 

SPIDER *USER5:[NEALE. AZTEC ]^RCHBS.BX6i 4 (10; 



! Use the contents of "RET .STATUS" to select what type error or non-successful 
! status code is to be processed, 

selectoneu ,RET_STATUS of 

set 

"Communication area initialize" error code 

This error code indicates that the port did 
not in »t the com area in the host memory after 
step 2 of the initialization sequence. 



[CIE.CODE] j 
begin 

PRINTB ( .EMSG.STRUCT [MSG4))j 
end; 



♦.Code equals *o'01* 



"Port/Controller time out" error code 

Port/Controller timed out after the specified time out Interval, 



!Code equals *o' 11* 



ICTO.CODE] : 
begin 

PRINTB ( ,EMSG_STRUCT lMSG2l])i 
end} 

"Port fatal error" code 

Tne error bit in the SA Register was set when examined in the DUPJ1 ^SERVICE 
routine. This error indicates a Port fatal error code. 



IPFE_C0DE] : 

k>egin 

SA..VALUE - .RC25.ADDR IRCSA, EHRCOOETj 
i 



fCode equals *o'21' 

[Get error code from SA register 



! Is the error code within tne RC2*> error code range, or is it 
J an generic, all controllers, error code? 



if . 5 A VALUE gequ 200 
then 

begin 

PRINTB ( ,RC ..STRUCTURE [.SA. VALUE - 200])} 

end 
else 

beg i n 

PRINTB C.PFE. STRUCT ( ,SA_VALUE ] ) } JGeneric error code 

end} 



•RCVb error code range 



F 1 3 



2RCHB5 


REV B PATCH 00 


{ 2099 


; 2100 


j 2101 


; 010c: 


; 2103 


l 2104 


; 2105 


; 2106 


; 2107 


; 2108 


{ 2109 


; 2110 


; 2111 


; 2112 


; 2113 


: 2114 


; 2115 


i 2116 


; 3H7 


; 2116 


2119 


2120 


2121 


; 2122 


2123 


; 2124 


; 2125 


J 2126 


: 2127 


i 2128 


; 2129 


: 2130 


; 2131 


: 2132 


j 2133 


J 2134 


; 2135 


; 2136 


{ 213/ 


; 2138 


; 2139 


; 2140 


i 2141 


i 2142 


; 2143 


; 2144 


; 2145 


; 2146 


; 214 7 


: 2148 


; 2149 


j 2150 


; 2151 


; 2152 


i 2153 


; 2154 


; 2155 
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"Return status error" code 

This indicates that a non successful return status code was returned from an issued command. 



[RSE_C0.DE] : 
begin 

PRINTB C.EMSG ..STRUCT [MSGOl); 



!Code equals *o' 31* 



! Look at the UQPORT connection ID field to determine the type of response 



if .RET„EN$AD (CONN ID] eqlu DUP 
then 

PRINTB ( ,SDUP_STRUCT ( .RET..EN$AD (STATUS))) 
end 
else 



beg'n 

PRINTB ( ,SMSCP_STRUCT ( .RET„EN*AD ( STA..C0DE ) ) ) j 
end; 

end} 

"Port Portocol violation" error cock* 

A protocol violation error was detected during host processing of an issued command 



{Code equals *o 41' 



[PVE..C00E1 : 
begin 

PRINTB I .EMSG..STRUCT IMSGIDj 
end; 

"Remote program died" error code 

This indicates that the remote program running 
in the DM machine did not respondtd witnin the 
designated time out interval and that the progress 
indicator was not increase afte* subsiquent t • me ov.t 
delays. It is assumed that the remote program is dead 
and is treated as a fatal error* 



[RPD..C0DE] : 
beoin 

PRINTB ( .EMSG.STRUC1 IMSG21) 
end; 



I Code equals *o' 51 ' 



"Port to host synchronous error" code 



(PSE CODE ] : 
begin 

PRINTB C .EMSG. STRUCT (MSG5])j 
end j 



•Code equals *o'61' 



t;i* 



7RCHB5 

REV B PATCH 00 



2156 

2157 

2158 

2159 

2160 

2lt>l 

2162 

2165 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

220 7 

2208 

2209 

2210 

2211 

2212 



ZRCMBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 

J "Message length error" code 



[MLE..CODE] j 
begin 

PRINTB ( .EMSG..STRUCT [MSG6l)i 
end; 

"Unknown end code" error code 



[UEC.CODE] : 
begin 

PRINTB (.F.MSG ..STRUCT [MSG7])j 
end j 

"Adaptor purge request" error code 



[APR_C0DE] : 
begin 

PRINTB ( .EMSG. STRUCT [MSG8])| 

"Unknown Interrupt" error code 



tUIN.CODE] : 
begin 
PRINTB C.EMSG.STftUCT [MSG9]); 

"ATTENTION MSG ENDCODE" error code 



[ATN.CODE] t 
begin 

PRINTB (.EMSG..STRUCT IMSG12}); 

"COMMAND MSG ENDCODE" error code 



ICMD..C0DE] : 

begin 

PRINTB C .t-MSG. .STRUCT [MSG13])} 

ends 
i 

• "SERIOUS EXCEPTION" error code 



[5F.X..C0DE] t 

begin 

PRINTB C.F.HSG .STRUCT [MSG14]) } 

end; 
i 

! "INVALID COMMAND" error code 



J 



5 -Apr -1984 13:46:24 
U-Jon-1984 13:23: 1? 



JCode equals *o' 71' 



GF.Q 0162 
VAX-11 Bllss-16 V3 555 Page 18 

SPIDER*USERS:[NF.ALE.A2T£C]/RCHB5.B16j4 (10) 



!Codc equals *o' 101* 



♦Code equals ^o'cJOl' 



•Code equals *o'301' 



•Code equals *o'401' 



JCode equals *o'501' 



!Codc equals tfo'bOl' 



HI. 3 



ZRCHB'j 

REV B PATCH 00 

2213 

2214 
2215 

2216 

2217 
2218 

2219 
22?.0 
2221 



2223 
2224 
2225 
2226 
222/ 
2226 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
224/ 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 

225 7 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 

226 7 
2268 
2269 



ZRCHBO RC25 DISK f-ORMATTER 
MODULE DECLARATIONS 



[IVC..CODE] t 
begin 
PRINTB C.EMSG_STRucr [MSGlSDi 

ends 

"UNKNOWN MESSAGE TYPE" error code 



lUMTJTODE] : 
begin 

PRINTB C .EMSG„STRUCT [MSG16])j 
end? 

"UNKNOWN MESSAGE NUMBER" error code 



[UMN^CODE] : 
begin 

PRINTB ( .F.MSG ..STRUCT [MSGl9])j 
end; 



5 -Apr 1984 13:46:24 
ll-Jan-1984 13:23:12 



J Code equals *o' 701 



!Code equals *o' 1001' 



!Code equals *o'4001' 



Out standing buffer slots are all filled up 



tOBF^CODE] : 
begin 
PRINTB CEMSG^STRUCT [MSG17]) } 



!Code equals #o'2001' 



Out standing command buffer out of sync error 



[OSE_C0Dfc] : 
begin 

PRINTB C.EMS5..STRUCT [MSGlBHi 
end; 

File read error from local load media 



[FRE..C0DE] : 
begin 

PRINTB C .EMSG„STRUCT [MSG20]); 
end: 



•Code equals *o' 3001' 



J Code equals *o*5001' 



Illegal FCT file length 



(ILL.FCT1 : 
begin 

PRINTB ( .EMSG ..STRUCT lMSG22])j 
end; 



!Code equals *o'600L' 



SEQ 0163 
VAX-11 Bliss-16 V3-555 Page 19 

SPIDER JUSERS : L NEALE . AZTEC 1ZRCHB5 ,B16 ?4 ( 10) 



This is here to trap any unknow return status codes sent to this routine. 



ZRCHB5 

REV B PATCH 00 



2270 

2272 
2273 
2274 
227b 
22 76 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 



ZRCH60 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



[otherwise] : 

begin 

PRINTB (,EMSG_STRUCT [MSG3]); 

end; 
tesj 



All errors are fatal so In it the RC25 and 
code section to abort this units format. 



RC25 ADDR [RCIP, RC_ALL) 
WRT.RC25 CRCIP, ONES)} 

DOCLN; 



ONES; 



115 



5-Apr-1984 13:46:24 
ll-Jan-1984 13:23:12 



SEQ 0164 
VAX-11 Bliss-16 V3-555 Poor 20 

SPlDER*USERSj[NEALE.AZTECURCHB^,B16j4 CIO) 



•Code equals non of the above 



jump to the clean-up 



JInit the controller 
JInit the controller 
{Jump to the clean-up code section 



000000 
000004 
000006 
000012 
000016 
000020 
000024 
000030 
000032 
000034 
000036 
000042 
000044 
000050 
000054 
OOuOSfi 
000060 
000062 
000066 
000070 
000074 
000102 
000106 
000112 
000116 
000120 
000122 
000126 
000132 
000134 
000136 
000140 
000142 
000146 
000152 
000154 
000156 
000160 
000164 



004167 
024646 
016701 
020127 
00100/ 
016746 
012746 
010600 
104414 
000567 
020127 
00100 7 
016746 
012746 
010600 
104414 
000567 
020127 
001034 
016700 
016066 
016600 
042700 
02002 7 
103410 
006300 
016046 
012746 
010600 
104414 
0005 76 
006300 
016046 
012746 
010600 
104414 
000S66 
020127 
001044 



0OOO0OG 

OOOOOOG 
000001 

0000 10G 
000001 



oooou 

OOO052G 
000001 



000021 

OOOOOOG 

000002 

000002 

174000 

000310 



177160G 
000001 



OOOOOOG 
000001 



000031 



000002 





.SBTTL 


DECODE MODULE DECLARATIONS 






DECODE: 


:JSR 
CMP 


R1.ISAVE2 

-CSP), -CSP) 




J 






MOV 


RET. STATUS, Rl 




J 






CMP 


Ri.n 










BNE 


it 










MOV 


EMSG. STRUCT* 10, -CSP) 




{ 






MOV 


01, -CSP) 










MOV 


SP.RO 




J 


SP,* 




TRAP 


14 










HR 


11$ 




i 




1$: 


CMP 
BNE 


R1.011 
2* 










MOV 


EM5G,SThJCT*52 t -CSP) 




♦ 






MOV 


01, -CSP) 










MOV 


SP.RO 




; 


sp,+ 




TRAP 


14 










BR 


13$ 




i 




2$: 


CMP 
BNE 


HI, 021 

4$ 










MOV 


RC25.ADDR.R0 




• 






MOV 


2CR0),2CSP) 




! 


*,RC$S.REG 




MOV 


2CSP),R0 




1 


RC IS. REG, 5A, VALUE 




BIC 


0174000, RO 




I 


*,SA. VALUE 




CMP 


R0.0310 




{ 


SA. VALUE, 4 




BLO 


3$ 










ASL 


RO 




1 






MOV 


RC.STRUCrURE-620(R0), 


-CSP) 








MOV 


*1. CSP) 










MOV 


SP.RO 




i 


SP,* 




TRAP 


14 










BR 


17$ 




1 




3$: 


A5L 

MOV 
MOV 


RO 

PFE.STRUCTCRO). -CSP) 

01. -CSP) 




» 






MOV 


SP.RO 




1 


SP.* 




TRAP 


14 










BR 


in 




\ 




4$: 


CMP 
BNE 


R1.031 
75 









1985 
..'048 

2060 

?04a 

20/0 

2048 

2081 

208 ' 
2090 



20^ * 
2094 



?048 



J 1 ■* 



ZRCH65 

RF.V B PATCH 00 



000166 

00017? 

000176 

000200 

000202 

000206 

000210 

000216 

000220 

000224 

000226 

000232 

000236 

000240 

000242 

000244 

000c*50 

000254 

00025^ 

000262 

000266 

000270 

000272 

000274 

000276 

000302 

000304 

000310 

000314 

000316 

000320 

000322 

000326 

000530 

000334 

000340 

000342 

000344 

000346 

000352 

000354 

000360 

000364 

000366 

000370 

000372 

000376 

000400 

00O404 

000410 

000412 

000414 

000416 

000422 

0004 24 

0004 50 

0004 34 



016746 
012746 
010600 
104414 
016702 
010200 
126027 
001012 
016200 
006300 
016016 
012746 
010600 
104414 
000413 
116202 
042702 
006302 
016216 
012746 
010600 
104414 
005726 
000567 
020127 
001007 
016746 
012746 
010600 
104414 
000567 
020127 
001007 
016746 
012746 
010600 
104414 
000567 
02012/ 
001007 
016746 
012746 
010600 
104414 
00056 7 
020127 
001007 
016746 
012746 
010600 
104414 
000567 
020127 
00100 7 
016746 
012/46 
010600 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 

OOOOOOG 
000001 



OOOOOOG 

000003 000002 

000016 

OOOOOOG 
000001 



000016 
1.77740 

OOOOOOG 
000001 



00004 1 

000002G 
000001 



000051 

000004G 
000001 



000061 

0000 12G 
000001 



000071 

0000 14G 
000001 



000101 

000016G 
000001 



o 



5-Apr-1984 13 : 46:24 
ll-Jan-1904 13:23:12 



SF.Q 0165 
VAX- 11 Dliss-16 V3-555 Paoe 21 

SPIDER*USERSj[NEALE.AZTEC]ZRCHB5.B16j4 (10 j 





MOV 


EMSG. STRUCT, -CSP) 




MOV 


01, CSP) 




MOV 


SP,RO 




TRAP 


14 




MOV 


RET.EN*AD,R2 




MOV 


R2.R0 




CMPB 


3CR0),02 




BNF 


5* 




MOV 


16CR2J.R0 




ASL 


RO 




MOV 


SDUP,STRUCTCRO),CBP) 




MOV 


01, CSP) 




MOV 


SP.RO 




TRAP 


14 




BR 


6* 


5*j 


MOVB 


16CR2),R2 




BIC 


0177740, R2 




ASL 


R2 




MOV 


SMSCP.STRUCTCR2),CSP 




MOV 


01, CSP) 




MOV 


SP.RO 




TRAP 


14 


6$: 


TST 


CSP)* 




BR 


22* 


7$; 


CMP 


R1.041 




BNE 


8* 




MOV 


EM5G. STRUCT^, i'SP) 




MOV 


01, vSP) 




MOV 


SP,RO 




TRAP 


14 




BR 


24$ 


6*: 


CMP 


R1.051 




BNE 


9$ 




MOV 


EMSG. STRUCT t4, -CSP) 




MOV 


01, CSP) 




MOV 


SP.RO 




TRAP 


14 




BR 


26* 


9$: 


CMP 


R1.061 




BNE 


10* 




MOV 


EMSG. STRUCT* 12, -CSP) 




MOV 


01, CSP) 




MOV 


SP.RO 




TRAP 


14 




BR 


28$ 


10$: 


CMP 


Ri.on 




BNE 


12* 




MOV 


EMSG. STRUCT* 14, (SP) 




MOV 


01, -CSP) 




MOV 


SP.RO 




TRAP 


14 


11*: 


BR 


30* 


12*: 


CMP 


R1.0101 




BNE 


14* 




MOV 


EMSG. STRUCT* 16, -CSP) 




MOV 


oi, (SP) 




MUV 


SP.RO 



i SP.+ 

! RET.EN$AD,+ 



J SP,* 



: SP,* 



SP,* 



SP,* 



SP,* 



i SP,* 



2106 



2114 
2111 



2114 



2111 
2116 



2105 
2040 



2130 
2048 

;?145 

2048 

2153 

2048 
2161 

204i? 
216^ 



J SP,* 



K 1 6 



^RCHB5 

REV B PATCH 00 



0004 36 
000440 
000442 
000446 
0004 50 
000454 
000460 
000462 
000464 
000466 
0004 72 
0004 74 
000500 
000504 
000506 
000510 
000512 
000516 
000520 
000524 
000530 
000532 
000534 
000536 
000542 
000544 
000550 
000554 
000556 
000560 
000562 
000566 
000570 
000574 
000600 
000602 
000604 
000606 
000612 
000bl4 
000620 
000624 
000626 
000630 
000632 
000636 
000640 
000644 
0006-50 
0C0652 
000654 
O0O656 
000662 
000664 
0006 10 
OOO^i 74 
000676 



104414 

000576 

020127 

001007 

016746 

012746 

010600 

104414 

000564 

020127 

00100,* 

016746 

012746 

010600 

104414 

000552 

020127 

001007 

016746 

012746 

010600 

104414 

000540 

020127 

00100/ 

016746 

012746 

010600 

104414 

000526 

020127 

00100 7 

016746 

012716 

010600 

104414 

000514 

020127 

00100/ 

016746 

012746 

010600 

104414 

000502 

02012 7 

001007 

016746 

012746 

010600 

104414 

0004 70 

020127 

001007 

016/46 

012746 

010600 

104414 



2RCHB0 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



000201 



000020G 
000001 



000301 

000022G 
000001 



000401 

000030G 
000001 



000501 

0OO032G 
000001 



000601 

00O034G 
000001 



000701 

000036G 
000001 



001001 

000040G 
000001 



004001 

000046G 
000001 



ER 




5-Apr 


1984 13:46;24 






11-Jan- 


1984 13:23:12 




TRAP 


14 




13$: 


BR 


33$ 




14$: 


CMP 


R1.0201 






BNE 


15$ 






MOV 


EM5G.STRUCT*20, 


-(SP) 




MOV 


01, -CSP) 






MOV 


SP.RO 






TRAP 


14 






BR 


33$ 




15$: 


CMP 


R1.0301 






BNF 


16$ 






MOV 


EMSG.STRUCT*22, 


-CSP) 




MOV 


#1,-(SP) 






MOV 


SP,R0 






TRAP 


14 






BR 


33$ 




16* j 


CMP 


R1.0401 






BNE 


18$ 






MOV 


EMSG.STRUCT*30, 


-(SP) 




MOV 


•1,-CSP) 






MOV 


SP,R0 






TRAP 


14 




17$: 


BR 


33# 




18$: 


CHP 


Rl,*501 






BNE 


19$ 






MOV 


EMSG.STRUCT*32, 


-(SP) 




MOV 


• 1. (SP) 






MOV 


SP.RO 






TRAP 


14 






BR 


33$ 




19$: 


CMP 


R1.0601 






BNE 


20 J 






MOV 


EMSG. STRUCT ♦34, 


-CSP) 




MOV 


#1, (SP) 






MOV 


SP.RO 






TRPP 


14 






BR 


33$ 




20$: 


CMP 


Rl.0701 






BNE 


21$ 






MOV 


EMSG. STRUCT * 3b, 


-(SP) 




MOV 


01, (SP) 






MOV 


SP.RO 






TRAP 


14 






BR 


*>5S 




21$: 


CMP 


Rl.OlOO! 






BNE 


23* 






MOV 


EMSG. STRUCT f 40, 


-CSP) 




MOV 


01, (SP) 






MOV 


sp.ro 






TRAP 


14 




22$: 


BR 


33$ 




25$: 


CMP 


Rl, 04001 






MNE 


25$ 






MOV 


EMSG. STRUCT »46, 


-ISP) 




MOV 


01. -(SP) 






MOV 


SP.RO 






TRAP 


14 





SEQ 0166 
VAX-U Bliss-16 V3-555 P nQ ^ 22 

SP1DER$USERS:[NEALE.AZTEC]ZRCHB5.B16}4 CIO) 



2048 



} 



{ SP.* 



i SP,* 



SP,* 



SP,* 



SP,* 



SP,* 



j SP,* 



2177 

2048 
2185 

2048 
2193 

2048 
2201 

2048 
2209 

2048 

2217 

2048 
2225 

2048 
JJJ3 



l SP,* 



LI 3 



2RCHB5 

REV B PATCH 00 



000700 
00070? 
000706 
000710 
000714 
000720 
000722 
000724 
000726 
000732 
000734 
000/40 
000/44 
000/46 
000750 
000752 
000756 
000760 
000764 
000770 
000772 
000774 
000776 
001002 
001004 
001010 
001014 
001016 
001020 
001022 
001026 
001032 
001034 
001036 
001044 
001050 
O01054 
001056 
001062 



ZRCHBO RC25 DISK KORMATTER 
MODULE DECLARATIONS 



000456 

020127 

001007 

016746 

012746 

010600 

104414 

000444 

020127 

00100/ 

016/46 

012746 

010600 

104414 

0004 32 

020127 

001007 

016746 

012746 

010600 

104414 

000420 

020127 

001007 

016746 

012746 

010600 

104414 

000406 

016746 

012/46 

010600 

104414 

012766 

012700 

01007/ 

104444 

062/06 000010 

00020 / 



002001 

000042G 
000001 



005001 

000044G 
000001 



005001 

000050G 
000001 



006001 

00O054G 
000001 



000006G 
000001 



17/77/ 000004 
1/777/ 

OOOOOOG 



5-Apr 1984 13;46:24 
ll-Jan-1964 13:23:12 



24$; 


BR 


33$ 




25$: 


CMP 


R 1,02001 






BNE 


27$ 






MOV 


EMSG.STRUCT*42, 


-CSP) 




MOV 


01, -(SP) 






MOV 


SP,RO 






TRAP 


14 




26$: 


BR 


33$ 




27$: 


CMP 


Rl, 03001 






BNE 


29$ 






MOV 


EMSG,STRUCT*44, 


-(SP) 




MOV 


n.-csp) 






MOV 


SP,RO 






TRAP 


14 




28$: 


BR 


33$ 




29$: 


CMP 


Rl, 05001 






BNE 


31$ 






MOV 


EMSG. STRUCT *50, 


~(SP) 




MOV 


01, (SP) 






MOV 


SP,RO 






TRAP 


14 




30$: 


BR 


33$ 




31$: 


CMP 


R 1,06001 






BNE 


32$ 






MOV 


EMSG. STRUCT >54, 


-CSP) 




MOV 


01, (SP) 






MOV 


SP.RO 






TRAP 


14 






BR 


33$ 




33$: 


MOV 


EMSG. STRUCT *6,- 


(SP) 




MOV 


01, (SP) 






MOV 


Sf\RO 






TRAP 


14 




33$: 


MOV 


0-1.4CSP) 






MOV 


0-1, RO 






MOV 


R0.SRC25.ADDR 






TRAP 


44 






ADD 


010, SP 






RTS 


PC 





SEQ 016/ 
VAX -11 Bliss 16 V3 555 Page 23 

SPIDER$USERS:INEALE.A/TECJZRCHB5.B16;4 (10) 
I 2048 



i SP,* 



I SP,* 



I SP,* 



i SP,* 



; SP , * 



l *.RC$S.REG 
: *,RC$M.RHi 
{ RC4M.RLU,* 



2241 

2048 
2249 

2046 

2257 

2048 
2265 



2 04 & 
22/3 



S.W 1 

2282 



1965 



Rout ! ne 5 i «*e : 
Maximum stack 



282 nerds. Routine Base: AC$CODE ♦ 0404 
depth per invocation: 10 words 



2265 



Ml 3 



ZRCHBS 

REV B PATCH 



00 



2266 
2287 

228e 

2289 
2290 
2291 

2292 

2293 
2294 
229S 

2296 

229 / 

2298 

2299 

2500 

2501 

2502 

2505 

2504 

250b 

2506 

2307 

2508 

2509 

2510 

2511 

2512 

2515 

2514 

251S 

2516 

2517 

2518 

2519 

2320 

25 t ?l 

2522 

2525 

2524 

252S 

2526 

252/ 

2328 

2529 

25 50 

2551 

2552 

2353 

2554 

255b 

255b 

2557 

2558 

2 539 

2 VI 

2 54 1 

2542 



ZttCHBO RC25 DISK FORMATTER 
MODUl F DECLARATIONS 



5-Ppr-l984 13:46:24 
11 -Jan -1984 13:23:12 



SEU 0168 
Page 24 
SPIDKRIUSKRS: tNEALE. AZTEC "JZRCHBS.B16 j4 (11; 



global routine DUP$I„SERV1CE : INT..LNKHYP novalue - 'Signals receive queue entry 

• ♦ 

Functional Description : 

The transmission of a message will result in a host interrupt if nid 
only if interrupts werp armed suitably during initialization and one 
of the following conditions has been met: 



l. The message was a command with F*l and the port's fetching it 
caused the command ring to transition from full to not ull 
(This interrupt means that the host may place another command 
in the ring. ) 



2. The message was a response with F-l and the port's depositing 
it caused the response ring to transition from empty to not 
empty. (This interrupt means that there is a response for 
the host to process. ) 

3, The port is interfaced to the host via a bus abapter and a 
command requires the port/controller to re access a given 
location during data transfer. (This interrupt means that 
the port/controller is requesting the host to purge the 
indicated chanel of the bus adapter.) 

This interrupt service routine is entered when any of the above 
conditions occ-jre. When ent-red it will be determined what type 
interrupt was executed and take the necessary action. 



Formal Parameters 
none 

Implicit Inputs : 
Nrd_slot: 



Impl ic i t Outputs 
Ret„status 



A global flag which points to the ne\t receive descriptor 
slot where the port /control ter should be polling on and 
where to expect the first response packet to process. 

This global flag is the mechinism Dy which these DUP 
and UQ Port protocol routines pass status code back to 
to the host routine's requesting communications over 
the established connections. The status returned is 
decoded by the caller to determine if an error or bad 
response packet status was discovered. 



0ut$std_buf 



This buffer Is used to save all commands issued to the 
port and are considered outstanding when in this buffer. 
This interrupt service routine will indicate this command 
is nolonger outstanding by setting the rec„t Ig in the 
slot matching this response envelope command ref number. 



Completion Codes 
none 

Side tftects ; 
none 



N13 



ZRCHHii 

REV B PATCH 



00 



234 3 
2344 

<?54r> 

2346 

234 y 

2348 
2349 

23 r >o 

23S1 
23r>2 
23S3 
23S4 

2355 

235f> 
233/ 
23i>8 
2359 
2360 

2361 

2362 
2363 
2361 

236/ 
236H 
236<1 
23/0 
23/1 
23/2 
,.'3/3 
23 /4 
23/5 
23/6 
23/7 
23 78 
2:* 79 
2380 
23H1 
2382 
2383 
2384 
238S 
2386 
238 / 
2388 
238 c > 
2340 
2391 
2392 
2393 
2594 
2395 
2396 
2397 
2398 
2399 



ZRCHBO RC25 DISK \ ORMATTER 
MODULE DECLARATIONS 

begin 

local 

TFHP, 

FOUND CMD, 
REF NUM; 



5 Apr -1984 
ll-Jan-1984 



SEQ 0169 
13:46:24 VAX- 11 Hi las -16 V3 555 Page 25 

13 : 23 s 12 SPIDER $USERS : [ NEALE . A/TEC 3 JJRCHB5 . Bio {4 C 11 ; 



I Holds nrd. slot ♦ 1 reference 

! Found command flng 

•Stores response packets cmd ref number 



Before this interrupt service routine does rnytbing 
look at the SA register for any port fatal errors 
posted. If th*re are errors posted then report the 
error and kick tr?e bucket. 



if .RC25_ADDR [RCSA, ERR ..BIT] 
then 

begin 

RET STATUS * PKE.CODEj 

DECODE ()j 

return j 

end; 



See what kind of interrupt $ot us here. 

We could hove a: 



!Are there any errors pouted 



•Indicate the error type 

! Decode and print the error 

KJust for show. Decode will kill it 



1. 

i . 

3. 



Response 



';- 



»nd r i ng 



ring transition interrupt. 
transition interrupt. 
A adaptor purge request Interrupt 
illegal running under the PDP-11 
supervisor and ts flagged as a f atr I 
error . } 

Or an unknown interrupt not known by this program 
which also results in a t'dtal cor.t'roller error 



( wh i ch is 
D ! agnost i c 

controller 



Check to '.-.-'j if we get here because of n r-v,?onse ring 
transition interrupt. This is more 1< ely to be the 
most frequent interrupt so check it first. 

i f .HEAD AREA IRSP INT] 

then 

begi n 

GET. NRD ( )j 
j 

, } Check the host protoco) for being out of sequence 

! with the controller by making sure that this slot 

! is owned by the host C meaning that there is a resp 

! envelope at this ring slot to process, 
j 

if .RECEIVE.RING I, NRD, SLOT, OWN JUT] nequ HOST. OWNED !ls this owned by host 



•Get the resp slot location to process 



\\ 1 4 



/r*CHB!» 

Rev PATCH 



00 



*>400 

i>401 

?40V 
J405 

».?4u4 
.'40«. 
. % 40* 

*?4oe 

^404 

♦>4lO 
.Mil 

**4 V 
.'4 15 

^4 14 
^41". 
i>41* 
c?41 / 
*?418 
i?4l** 
*>4?0 

24 iV 

^4^3 
*?4»»4 
«'4 t 'S 
?4.»* 

.'4. 1 : 

.'4*>tt 
.'4^» 
«>4 50 
c'4U 
.^V 
.433 
.'4 34 
»»4 5S 
.'4 V, 

.'4 4 ; 

.»4 3o 
.>4 ^4 
2440 
.'44 1 
2442 
.'44 5 
.'444 
244 r , 
2446 
k »44 f 
. , 44H 
.'444 
24%0 
«'4M 
.MV 
.'4'. 3 
.4',4 
.4*/. 
24 bu 



^RCH60 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



•S-Apr 
11 Jan 



1904 
1964 



13j4f,:24 VAX -11 RHaa If. V5 $ r A Pact* t o 

13j23ii2 fiPIDI-'RIurjERSi (WAIF. A/TEC )/RCHB'.}.bl6|4 (11; 



than 



bag in 

RET STATUS • PSE CODE i 

DECOOfc I )| 

raturni 

andi 



jNoat/port is Out Of MQutnc« 
Hold a "Port aync irror" codf 
tRaport tha trrof and U ick tha bucket 
!Ju«t for ahow Dacod* killu it 



Par DUP protocol onct intarruptad dua tc a raaponaa rinQ 
Intarrupt, tha hoat coda ahould procaa* all raaponaa pacUat* 
found in th* raaponaa ring. TH J •» whila loop will continua 
to procaa* tha raaponaa p»ck*tu in tha raaponaa ring until 
riona ramain, 



whila TRlC do 

baa In 
BREAK | 



JProcaaa all raaponaa paci«at*# in ring 
!Loo*» for control c'a 



Load tha ^mfT*r\c% ttructurt "Rat.vnfad" with tha addraa* 
Of thi* raaponaa an v alopa to proctit ( Tha m i nui #o"4' i* 
don* to addraaa tha firat word In tha anvalopa pacl*at 
and i* aqual to location "ta*t -4"), 

Nf.T.tNIAD « C .RECEIVE .RIr*i ( .NRQ SLOT, 10 ENIADP - «0'4', 
Taat tha and pacWat for ita poaaibia thr«# and typaa, 



th, 



rod 



End mttiAM opcoda* (alao callad andcodaa ) art formad by adding _ _ 

»*aaaoa 'lag to tha command opcoda. For a^ampla. a R* A0 command* mnd 
maaaaoa containa tha valua OP, RED » OP.tNO in it* opcoda fiald. Tha Inval'd 
command *r,d maaaaoa contiina juat tha ^nd m*%nmQ* f lag (>.*.. I'P.INO! in 
Ita opcoda fiald. Tha aarioua ancaption opcoda ahown abova (i.a. OP.Sfx ♦ 
OP.FND) in ita opcoda fiald, 

Commanda opcoda bita 6 and .' indicata tha typa of maavao* (command, *r>d or 
attantion maaaaoa. Command opcodaa bita 3 throixin "» indicata tha com^a^d 
catagory (immadtata, aactuantial or no a a quant ! al) and whath*r or not tha 
command includaa a buffar daacriptor, 

v **m M^CP documan ; appandi* "A \ NOTE;' for mora information on thi* top ; c. 
»al*cton*u .RET ENfAO ITVPlMSli) of ,'Salact tha andpacl-at ai.-a 



aat 

tEND*riS(») : 
bag i n 



J la thia an and c^dm pack at 



SaLact off of tha andcoda to m«»i*a *ur+ tha communication* 

m^ch^niaw tranafarad tha co^ract n^mbar of byta 'or thin 
and pac^at, If thia rwavtomr of oyta« tranafarad >% not 
cop"tct for tha commanda and pac^at than loaf? tha mrror 
coda "nto r^x.Kirr\ nt *t<*** , coll dacoda to »"*port tha 
^rror and U «*C^ th* buckat And d»t« Thi« andcoda ; * fo**mad 



CI 4 



/RCHHS 

HIV N PATCH 00 



.»4Sfl 
i^4S^ 
l'4M> 
•."MM 
i?4t>.- 
^4M 
J4h4 
.'4fcS 

J4t. ,* 

,?4hH 
.*?4e» l # 
;»4 /o 

.?4/l 

,m /,» 

* v 4 / * 

?4/4 
^/•. 
*?4 /6 

.•?4 / ; 
^4 ;*# 

.!4H0 
.>4tfl 

i?4«V 
«?4H? 

» v 464 

.'4«S 

i?48f> 

fc ?4«; 

;?4b • 
• >440 
i'4'U 
<)49.> 
i'4° * 
*?4'>4 
i?4-#S 
J4 l Hi 
.'4'*/ 

i'4*#«l 
. M >00 
.'SOI 

.'SO 5 
.'S04 
*'SOS 
I'SOfj 
.".0/ 

JS0<* 

.»MO 
."■il 

i/bi5 



/RCHHO RC*'S DISK U.HMATTfcR 
MODULfc DfcCLARATIUNS 



'if fj 01 t\ 
VAX U Hli«t« 1* V^ SV, Paae f -/ 

11 Jan 19H4 1^ ; ;>3 : 1 *? r .PIO( RMJSf'Rsj [ NI.Al I, , A/TfcC ]/RCHBS.Hl6|4^ 11; 



r > Apr 1^84 13j4fM^4 VAX 11 Hliia 1^ V^ SV, 



by adding the end meaeage Hag ^o'^OO' to the command* 
opcode. 



selectoneu .RET .ENvAO [CNDCODI] of 

9«t 



"Rt.CHVF DATA" command end pack at 



(LOP RfD] ; 
begin 

if ,RIT FN! AD [ M*i(i i.l'NGTH] neou I' 1 './ RIO 
than 

becjin 



! Xh tha byte co*nt correct 



ram 
Rl '.STATUS • MLfc.CODfj .'Return a "if»e»*age length error code" 



DECODt ()| 
re': urn j 

end ; 



J Report the error and k • ck tha bucket 
JJuat for ahon. Decode u I 1 X*» it 



endj 



"'it NO DATA' command end packet 



C tl*P .SID] : 

baglr, 

If ,RtT *h*AD (MSli UNtifM) nec*i IS/ 1.1.0 
then 

baai n 



! *,*> the byte count correct 



► a i n 
RtT STATUS ■ Mt.fc CUOt | 'Return n "meaiaae length error Code" 



Of coot Oj 
return) 

«?nd| 



fReport the error »r»d u ick the bucket 
!Ju<it for show, Decode wills It 



fndi 



" Gr . T OUST STATUS" command end packet 



hOP (>0S] j 
b*g>n 

if .Rl. T f'NlAO IMSfi LfNtiTH] neCM fS/ lil)S 
then 

bey 'n 



!ls the byte count c «ct 



rg » n 
Rf Y .STATUS - Ml fc CODf i IMtturn a "*ne*sag« length error code" 



Of CO0I I )| 
ret >..rnj 
end) 



.•Report the error nnd uigU the bucket 
! Jurat for show, Decode klliu »t 



endj 



"tXLCUTL SUPMUlhU PROGRAM* command end packet 



I? 14 



/RCHHS 

REV U "AT CM 00 



i 



«">i4 

.'Mh 

*"»i / 
i?r»i c * 

i >r nv 

^u'4 

< j s.v 

»?S54 
JS5S 
2556 

^S40 

; ), >4 1 

i?S4i? 

.'?'i4S 
*?S44 
^S4S 

; , s4f. 

«?S4 / 

.>S46 

;>S49 
.'SSI 

i>SS4 

2SS5 

«!V> / 
t j sss 

«?Sr> 1 

;?v>4 
.!?>*'* 

.")h / 

i?Sf»8 
,'Sf. 1 * 
J', to 



*.RCMHO RCVS DISK MIRMAIUR 
MODULE DECLARATIONS 



S Apr 1984 l^;4f> : ;»4 
1 Jan-l4t»4 13:*e3t le» 



SPIDER $USERSs[NEALE.A/TECJ/RCHBS,B16}4 C 11 J 



1 1 OP E'.Pl : 
begi n 



if .RET.ENIAD ['1SG. LENGTH! nectu ES/..ESP 
then 

begin 



! I*» the byte count correct 



?i n 
.STATUS ■ r1Lfc..C0DE| !Return n "mtssa^ length error code" 



DFCOOF ( )| 

returni 
endi 



•Report the error ar><j k ick the bucket 
JJust for uhow, Decode Willy It 



•hd j 



"E'XKUIE LOCAL. PROGRAM" command •nd pocket 



[LOP LLP] : 
begin 



• In the byte count correct 



if .RET ENIAD [MSG LENGTH) nequ ES/ LLP 

then 

begin 

RET STATUS ■ MLE.COOE'i JReturn a "imiibqc length error code' 

DECOOE ()| .'Report the error «nd \. ick the bucket 

return j Must for show. Decode kills it 

endi 

end i 

"ABORT PROGRAM" command end packet 



[LOP ABT ) : 

b*gin 

if .RET tNiAD [MSCi.l ENGTHl ntou ES/ ABT 
then 

beta in 



J I«* the byte co*.*nt correct 



iQin 
RE '.STATUS ■ MLE.CODl j .'Return a "men sag* length error code 



DECODE I )j 

return i 
end j 



JMepor*t the error and kick the bucket 
JvJust for show. Decode kills it 



fndl 



"SET CONTROLLER CHAR" command end packet 



I LOP SCO ; 
begi n 

if .HIT tNIAl) [MSI. IrNGTHl neqvi t S/ SCC 
then 



! Is the byte count correct 



begin 
RET S 
DECODE ( )i 



?i n 
STATUS • MLE.CODt , JRet.urn a 'message? Length error code 
JHcDOrl the error and klcU. the bucket 



/RCHH5 

rev b ^atch 



00 



25 71 
25/2 
25/5 
25 /4 
25/5 
25 76 
25 / : 
25 78 
25 /9 
2580 
2581 
2582 
258 5 

2585 

2586 
258/ 
2588 
2589 
2590 
2591 
25 c *2 
2595 
2594 
2595 
259b 
255 7 
2598 
2*»9') 
2600 

2601 

2602 
2603 
2 b 04 
2605 
260b 
260 7 
2608 
2609 
2610 
2611 
2612 
2615 
2614 
2615 
2616 
261/ 
26 18 
2619 
2620 
2621 
2622 
262^ 
2624 
2625 
26. '6 
2627 



h 1 4 
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Apr 1984 
J*n-19H4 



5EU 01 /*. 

15:46:24 VAX U Bliss-16 VS 555 P ao e 29 

15:23:1? 5PIDER$USERS: [NEALt . A/TfcC ]^RCHB5.B16,4^ 11 ; 



returnj 
end i 



!Just for show, Decode kills it 



end j 
"ON LINK" command end pocket 



[EOP UNL1 
begin 



! Is the byte count correct 



if .RET EN I AD [ MSG LENGTH] nequ ESZ ONL 

then 

beg I n 

RET .STATUS « MLE CODE i IReturn n "fnessage length error code" 

DECODE ( )j .'Report the error and kick the bucket 

returnj Must for show. Decode kills It 

end i 

end: 

The "OP..ENO" end message flag all by its self tells 
us that the controller is flagging us of an illegal 



command sent over the connection, 
bucket , 



Error and kick the 



[OP .END] : 
begin 

RET STATUS 
DECODE C )| 
return: 



IVCCODEt 



The controller Is telling us that » serious exception 
has oceured, Error tsr\<$ kick the bucket. 



(EOP. SEX! : 

begin 
RET STATUS 
DECODE C )i 
return j 
end j 



SEX .CODE j 



Unknown rnd packet endcode type 



[otherwise] 
begin 

RET STATUS 
DECUDt C )j 
ret urn t 
endi 

tea j 



« UEC.CODt j 



[Return nn "unknown end cod«" 



.'Report the error and kicfc the bucket 
!Just for show. Decode kills it 



1.4 



/RCHB5 

REV B PATCH 00 



2628 
2629 

26 50 
2631 

263? 

2633 

2b 35 
2636 
263/ 
2636 
2639 
2640 
264 1. 
2642 
2643 
264/) 
2645 
2646 
264 7 
2648 
2649 
2650 
2651 
2652 
2653 
26 54 
2655 
2656 
265/ 
2658 
265S 
2660 
2661 
266, 
2663 
2664 
2665 

266 / 
2668 
2669 
26/0 
26/1 
26/2 
26/3 
26 74 
26/5 
26/6 
2f.» / / 
2^/8 
2t>/9 
2680 
2681 
26H2 
2*j*H 
2684 
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5EU 01 74 
VAX -11 Bliss -16 V3 555 Pnne 30 

SPIDER IUSERSi[NE ALE. AZTEC JZRCHB5.B16|4 Cll'j 



RFF_NUM - .PET.ENiAD LCMD.LREF], 



The port/ecntroller sent the endpacket over the connection 
with out any problems. Now find this commands owner in the 
out Sstanding buffer and ; ndicate to them that the command 
has been received. 



!Get this rec packets cmd ref number 



Search the outstanding command buffer for this commands 
reference number. 

If found, load the buffer location with the ret en tod 
and *#et the received f)ag to signify that this command 
has been received by this interrupt service routine, 

rOUNO CUD - FALSE i ! Clear the found cmd flag 

incru i from to REC. ALLOCATE 1 do ! Search the buffer 

if .0UTISTD..BUF [.i, CM0.REF] eqlu .REF NUM ! Is this the comd ref 
then 

beal n 

OUMSTD BUT [.J. REC..FLG] - TRUE j {Indicate command is received 

0UT*ST0_BUF [.i, ENV.ADR] • .Re T tNJAD; {Return envelope adrs 

F0UNO_CM0 ■ TRUEt {Indicate it was found 

exit loop i J Eh it the loop 

end i 



If the search through the command ref 
buffer failed to find this commands cmd 
reference number then die. 



f not .FOUND CMD 
then 

begin 

RET .STATUS • PSE.COUEj 

DECODE Oj 

return j 

end j 

end j 



JFnd of ENDIMSli processing 



The set controller characteristics command 
disabled the reporting of attentions messages 
so treat this as a fatal error and die. 



ATTIMSG1 : 
begin 

MET STATUS 
DECODE (. )j 
return j 
endj 



! At tent ion end message type 



ATN .CODE i 



It doesn' t make any since for this tnd message 
packet not to have the end message flag added 



1,14 



ZRCHB5 

REV B PATCH 00 

268b 
2686 

268 7 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
269S 
2696 

269 7 
269H 
2699 
2/00 
..V01 
2702 
2/03 
2/04 
2705 

a/06 

.770/ 
2708 
2709 
2/10 
2/11 
2/12 
2713 
2714 
2/1S 
2/16 
2/17 
2718 
2/19 
2 /20 
2 721 
2/22 
2/23 
2/24 
?.??. r > 
2/2* 
2 /2 / 
2/28 
2 729 
2/30 
2/31 
2/52 
2/5 5 

2/ 54 
2/3S 
2/56 
2/3/ 
2/58 
2/3'J 
2/40 
2741 



<?rtCHBO RC25 DISK hORMATTER 
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S-Apr-1984 13j4f>{?4 
U Jan-19H4 13:23:li> 



VAX 11 Bliss 16 V5 55*3 
SPIDER*USF.RSilNKALt.AZ 



SEQ 01 /S 
Pot>e 31 
hC)ZRCHBb,B16}4 (11; 



! to this command opcode as treat i t as a Fatal 
! error and die. 



{CMDtMSGl : 

RET. .STATUS - CMD..CODfcj 
DECODE C)j 
ret*, rn j 

i 

! This end code type 3 s of unknown origin 90 
• fre><t is as a fat*l error and die. 



[ others ise] : 
begi n 

RET STATUS 
DECODE ( )j 
return; 

endj 

tes; 



UECCODfci 



! Unknown message type code receiver 



Before we leave put this receive envelope message length 
field back to the envelope si-re, in bytes (Per UU Spec) 
This si.ee does not include the 2 UQ's words preceeding the 
command text area. 

RET FN*AD [MSG .LENGTH] - RB_SIZE*?i 

Return this receive slot descriptor back to 
the port to fullflll my part of the protocol. 

RECEIVE. RING [.NRD_SL0T, OWN .BIT] - PORT OWNED i 

Look at the next response ring descriptor. If its 
host owned then continue this process else exit the 
loop. first see if the ring reference has wrapped 
around to the top of the ring. 



f .NRD..SL0T ♦ 1 gtru Rf.C.AL LOCATE - 1 
then 

TEMP ■ ZERO 
else 

TEMP • .NRD..SL0T ♦ 1; 



!Has the ring rtf wrapped around 
JWrnp it back to zero dsc slot 
♦Look at the next sea else slot 



! Now see if the next receive descriptor slot is host owned. 

if .RECEIVE RING I . TEMP , OWN. BIT] eqlu HOST OWNED JAre we <frn* y~ 

then 

(A T NRD C 1 Jtiet the next resp desc to prdr.etss 

else 

ex it loop j !No more to do yo exit 



H 1 4 



ZRCHH5 


REV B 


PATCH 00 




2 742 




2 74? 




2744 




2/45 




2 746 




274 7 




2748 




2749 




2/50 




27S1 




2/52 




2/S3 




2 754 




2755 




2/56 




2 75 / 




2758 




2759 




2760 




2/61 




2 /62 




2 763 




2764 




2 765 




2/66 




2767 




2768 




2 /69 




27 70 




2771 




2//2 




2 7/3 




27/4 




27 75 




2//6 




2 / / / 




2 7/rt 




2//9 




2/80 




2/81 




2/82 




2 783 




2/84 




2/85 




2786 




2/8/ 




2/88 




2/6"* 




2/90 




2/91 




2 7 V? 




2/93 




2/94 




2/95 




2/96 




,'/'»/ 




2798 
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end; 



5-Apr-1984 I3j46:24 
11 -Jan -1984 13:25:12 



•End of WHILE LOOP 



SFQ 01 /6 
VAX -11 Hii 9* 16 VV555 Page 3, 

SPIDPRIUSERS: INHALE, AZTEC]ZRCHB5.B16|4 Cll'j 



All response ring descriptors have been processed with out any 
detected errors so return to the main host code with an pass 
return code. Out before we go clear out the interrupt indicators. 



HEAD_AREA [RSP„INM - ZEROS j 

HEAD, AREA [CUD. INT] - ZEROS: 

return RET„STATUS - PAS_C0DE: 

end; 



!Clear the interrupt indicator location 
.•Clear out the indicator 
.•Return a "pass code 



♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦•♦♦♦♦♦END CF RESPONSE RING INTERRUPT PROCESSING**** *♦♦♦♦♦♦+♦♦♦♦*♦♦♦ 

A send rinQ transition interrupt could happen if at 
sow date only one descriptor slot is allocated for 
commands. 

Clear the interrupt indicator If this is true and do 
a return with no errors. 



if .HEAD_AREA [CM0..INT] 
then 

begin 

HEAD. AREA [CMD_INT] « ZERO, 

return; 

end; 



!Is this a com ring transition interrupt 



•Clear out the indicator 
•Continue on with the host code 



• ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦END" OF COMMAND RING INTERRUPT PROCESSING******************* 

Check to see if an adaptor purge i "i being requested 
by the port/controller in order to complete excution 
of a issued command. Remember that this is illegal 
during PDP 11 formatting and is concictered to be a 
fatal error. 



if .HEAD. AREA [ADP.CH] nequ ZERO 
then 

begi i\ 

RET . .IMUS - APR CODE; 

DECOIH C); 

return; 

end; 



J Is the an adaptor purge request? 



.'Indicate the error code 

! Report the error and k!ci« the buc'-et 

JJuSt for show, Decode Wills it 



•♦^♦♦♦♦♦^♦♦♦♦♦♦♦^♦♦♦♦♦♦♦♦£ND <y ADAPTOR PURGE INTERRUPT PROCESSING********************** 

The host program has been interrupted by on unknown interrupt 
source if the routine program flow reaches htr^ , 

load the error code into return status and call decode to take 
appropriate action. 



ZRCHB5 

REV B PATCH 00 

;?799 

2800 
2801 
2802 
2803 
2804 
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RET STATUS 
DECODE ( )i 
return} 
endj 



UIN^CODEj 



114 



5 Apr 1984 
U-Jan-1964 
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000000 010046 



000002 
000004 
000006 
000010 
000012 
000014 
000020 
000024 
000026 
000034 
000036 
000042 
000050 
000052 
000056 
000062 
00006c 

0000 /o 

0000 72 
0000 76 
000104 
000 1 06 
000114 
000116 
000120 
000124 
000126 
000130 
000 1 34 
000140 
000146 
000152 
000156 
000160 
000162 
000164 
000166 

0001 /o 

000172 
0001/6 
000202 
000204 
000206 
00' .'2 1 2 
0002 U, 
000220 



010146 
010246 
01.0346 
010446 
010546 
016700 
016046 
100004 
012/67 
000546 
016700 
032/60 
001002 
000167 
004/6/ 
016/00 
006300 
006300 
066/00 
032760 
001404 
012767 
000570 
1044 22 
016700 
006300 
006300 
066 700 
011067 
162/6/ 
016/01 
116100 
006200 
006200 
006200 
006200 
006200 
006200 
042/00 
02002 / 
001121 
005002 
156102 
020i'2 / 
00100/ 
021127 



OOOOOOG 
000002 

000021 OOOOOOG 

OOOOOOG 
000001 000006 

000550 
1/6424 
OOOOOOG 



OOOOOOG 

100000 000002 

000061 OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 

000004 OOOOOOG 

OOOOOOG 

000014 



1////4 
000002 



000014 
000205 

000060 





.SBTTL 


OUP$ I. SERVICE Ml 


DUP*I 


SERVICE:: 






MOV 


RO, (SP) 




MOV 


Rl.-CSP) 




MOV 


R2.-CSP) 




MOV 


R3.-CSP) 




MOV 


R4.-CSP) 




MOV 


R5.-CSP) 




MOV 


RC25,ADDR,R0 




MOV 


2CR0), -(SP) 




BPL 


li 




MOV 


♦21, RET. STATUS 




BR 


9$ 


1$: 


MOV 


HEAD. AREA, RO 




BIT 


♦1.6CR0) 




BNE 


2« 




JMP 


21$ 


2$: 


JSR 


PC.GIT.NRD 




MOV 


NRD.SLOT.RO 




ASL 


RO 




ASL 


RO 




ADD 


RECEIVE. R.I NG.RO 




BIT 


0100000, 2(R0) 




bcq 


4$ 


3$: 


MOV 


061, RET, STATUS 




BR 


16$ 


4$: 


IRAP 


^ 




MOV 


NRD.SLOT.RO 




ASL 


RO 




ASL 


RO 




ADD 


RECUVE. RING, RO 




MOV 


(RO),RET.EN$AD 




sue 


04, Rf T ,fN*AO 




MOV 


HEf.ENIAO.Rl 




MOVB 


14(R1),R0 




»*SR 


RO 




AS9 


RO 




ASK 


RO 




ASR 


RO 




A'.iR 


RO 




ASR 


RO 




HIC 


01 /// /4,R0 




CMP 


R0.02 




BNb 


14$ 




Cl R 


R2 




HISH 


14CRI ),R2 




CMP 


R2,0«>05 




BNfc 


M 


5$: 


CMP 


(Rl).OtiO 



r>r> 



86 



j *.RC*S.REG 



35/ 



2360 
23*»1 
2388 



.*3'U 

, > 399 



2402 
24u < 

24 U» 
2424 



2444 



24ol 



24/0 



J14 



ZRCH65 

REV B PATCH 00 



000, 

000, 

000,? 34 

000236 

000242 

000244 

000250 

000252 

000256 

000260 

000264 

000266 

0002"/;? 

0002/4 

000300 

000302 

000306 

000310 

000314 

000316 

000324 

000326 

000332 

000334 

000342 

000344 

000352 

000354 

000360 

000 364 

000366 

000370 

000372 

000 376 

000400 

000402 

000410 

000416 

000422 

000424 

0004 30 

0004 34 

0004 36 

000442 

000444 

000446 

000452 

0004 54 

000462 

00O464 

000466 

00O4/0 

0004 /6 

000500 

000506 

000512 

000514 



001453 
012767 
000520 
020227 
001766 
02022 7 
001763 
02022 / 
001760 
020227 
001755 
020227 
001752 
020227 
00174 7 
020227 
001744 
020227 
001004 
012767 
000565 



02 



/ 



001004 
012767 
000556 
012/67 
000552 
016700 
016005 
005004 
005000 
005001 
156001 
020105 
001011 
052 760 
016760 
012 704 
000405 
062/00 
020027 
101/55 
032704 
001016 
000620 
02002 / 
0010O4 
012/67 
000506 

005 /0O 
001326 
012 /h/ 
000500 
0127/7 
016700 

006 500 
006 300 



ZRChRO RC25 DISK KJRMATTER 
MODULE DECLARATIONS 



000071 OOOOOOG 

000204 

000201 

000202 

000203 

000206 

000204 

000211 

000200 

000701 OOOOOOG 

00020/ 

000601 OOOOOOG 

000101 OOOOOOG 

OOOOOOG 
000004 

OOOOOOG 



100000 OOOOOOG 
OOOOOOG 000002G 

000001 

000004 

000014 

000001 



000001 

000401 OOOOOOG 

000501 OOOOOOG 

0000 74 OOOOOOG 
OOOOOOG 



5 Apr -1964 13;46:24 
ll-Jon-1954 13:23:12 





BEQ 


10$ 




MOV 


071.RE.T. STATUS 




BR 


16$ 


6*: 


CMP 


R2.0204 




BEQ 


5$ 




CMP 


R2.0201 




BEQ 


5$ 




CMP 


R2.0202 




BEQ 


5$ 




CMP 


R2.0203 




BFQ 


5$ 




CMP 


R2 , 0206 




BEQ 


5$ 




CMP 


R2.02O4 




BFQ 


5$ 




CMP 


R2.0211 




BLQ 


5$ 




CMP 


R2.0200 




BNE 


7$ 




MOV 


0701, RET. STATUS 




BR 


24$ 


7$: 


CMP 


R2.02O7 




BNE 


8$ 




MOV 


0601, RET. STATUS 




BR 


24$ 


8$: 


MOV 


0101, RET. STATUS 


9$: 


BR 


24$ 


10$: 


MOV 


RtT.EN$A0,RO 




MOV 


4(R0),R5 




CLR 


R4 




CLR 


RO 


11$: 


CLR 


Rl 




BISB 


OUT$S1D.BUT(RO),R1 




CMP 


R1,R5 




BNF 


12$ 




BIS 


0100000, OUT $510. UL* ( RO ) 




MOV 


RE r.EN$AD,0UT$STD.UUf^2CR0) 




MOV 


01, R4 




BR 


13$ 


12*: 


AOD 


04, RO 




CMP 


R0.014 




HI. OS 


11$ 


13$: 


BIT 


01, R4 




BNE 


1 /$ 




BR 


U 


14$: 


CMP 


HO, 01 




BNE 


15$ 




MOV 


O401, RET. S T ATUS 




BR 


24$ 


15$: 


1ST 


RO 




BNE 


8$ 




• 1UV 


0501, HE f .STAR'S 


16$: 


MR 


24$ 


17$: 


MOV 


074,«Ht I A N$A0 




MOV 


NRD.SLOT.RO 




ASL 


RO 




ASL 


RO 



SEQ 01 78 
VAX 11 BlInfj-16 V3 555 Poo* 3< 

SPIDER $ USERS : t NE ALfc .AZTEC] ZRCHB5 . B 16 j 4 (11) 



; 24/3 

; 24/4 

i 2461 

i 2486 

J 2461 

; 2502 

! 2461 

5 2518 

l 2461 

l 2534 

j .'461 

! 2550 

: 2461 

; 2566 

i 24ol 

i 2582 

} 2461 

I 2600 

J 2601 

i 246. 

; 2611 

j 2612 

; 2621 

: 2622 

: 2633 

t * . RE f- . NUM 

j EOUND.CMD 2e»42 

; 1 2644 

: 2646 

i ♦(!),♦ 

; *. RET. NUM 

; ♦,♦(!) 

; *.*( I) 

j *. EOUND.CMD 

; *.I 

5 I.* 

: *,* r OUND,CMD 



264 ( > 
2650 

2e.51 

2f>48 
2644 



2M'l 

2*»t'4 
2444 

2*> *^ 
2444 

2f.-'l 

2/14 
2 V 1^ 



K14 



ZRCHBS 




ZRCHBO RC25 DISK f-QRMATTER 




5 Apr 


REV B PATCH 00 


MODULE DECLARATIONS 




11-Jan- 


O00 r 316 


066 /OO 


OOOOOOG 




ADD 


receive.ring.ro 


000522 


052760 


100000 


000002 


BIS 


4100000, 2CR0) 


000550 


016700 


OOOOOOG 




MOV 


NRD.SLOT.RO 


000534 


005200 






INC 


RO 


000536 


02C027 


000003 




CMP 


R0.03 


000542 


101402 






HLOS 


18$ 


000544 


005003 






CLR 


R3 


000Mb 


000401 






BR 


19$ 


000550 


010003 




18$: 


MOV 


R0.R3 


000552 


010300 




19$: 


MOV 


R3.R0 


000554 


006300 






ASl 


RO 


000556 


006300 






ASl. 


RO 


000560 


066700 


OOOOOOG 




ADD 


RECEIVE. RING, RO 


000564 


032/60 


100000 


000002 


BIT 


0100000, 2CR0) 


00057r> 


001004 






BNE 


20$ 


000574 


004 767 


175706 




JSR 


PC.GET.NRD 


000600 


000167 


177312 




JMP 


4$ 


000604 


016700 


OOOOOOG 


20$: 


MOV 


HEAD. AREA, RO 


0006 10 


005060 


000006 




CLR 


6CR0) 


000614 


005060 


000004 




CLR 


4CR0) 


000620 


005067 


OOOOOOG 




CLR 


RET. STATUS 


000624 


000427 






BR 


25$ 


000626 


016700 


OOOOOOG 


21$! 


MOV 


head.area.ro 


000632 


032760 


000001 


000004 


BIT 


01.4CR0) 


000640 


001403 






BEQ 


22$ 


000642 


005060 


000004 




CLR 


4(R0) 


000646 


00041'. 






BR 


25$ 


000650 


016700 


OOOOOOG 


22$: 


MOV 


HEAD. AREA, RO 


000654 


105760 


000003 




1STB 


3CR0) 


000660 


001404 






HEQ 


23$ 


000662 


012/6/ 


000201 


OOOOOOG 


MOV 


•0201. RET. STATUS 


0006 70 


000403 






BR 


24$ 


0006 7 ? 


012767 


000301 


OOOOOOG 23$: 


MOV 


0301, RE 1 .STATUS 


000 /oo 


004 767 


176010 


24$: 


JSR 


PC, DECODE 


000/04 


005/26 




25$: 


TS1 


(SP>* 


000/06 


012605 






MOV 


(SP)*,R5 


000 / 1 


012604 






MOV 


C SP ) ♦ , R4 


000/12 


012603 






MOV 


CSP)* ,R3 


000 / 1 4 


012602 






MOV 


( SP ) ♦ . R2 


000/16 


012601 






MOV 


(SP)*,R1 


000/20 


012600 






MOV 


(5P)*.R0 


000/22 


000002 






RTI 





SE.Q Ol/'i 
VAX -11 BIIsm-16 V3 «.05 Poor 35 

SPIDER$USERSjtNEALt.AZTECjZRCHB5,B16}4 (11) 



272/ 



5 TEMP 

1 

: *.TEMP 

j TfcMP,* 



2/2<> 
2/27 
2/31 
2737 



2/39 
2/3/ 
2/50 

2/51 
2 752 
2 3^0 

2766 



2 /69 
2/68 
2/83 



2/86 
2/8/ 
2801 
2802 
2286 



Rout i ne 5 i ;re : 
Maximum stack 



234 words, Routine Base; AC$CUUE * 

depth per invocation: 13 words 



1470 



:805 



L.14 



REV B PATCH 00 

2806 
2807 
2808 
2809 
2810 
P8U 
2812 
2013 
2814 
281b 
2816 
281/ 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
282S 
2826 

282 / 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 

283 7 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
284 r > 
2846 

284 7 
2848 
2849 

28 c >0 
i!HSl 
28'j2 
28!> 3 
28S4 
28SS 
28'>b 
28S7 
28S8 
28 r >9 
2860 
2861 
2862 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



5 -Apr- 1984 13;46:24 
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SF.Q 0180 
VAX-11 BI!ii*jl6 V3 yj>T> Page 36 

SPIDER $USHRb: I Nt^ALL. AZTEC ]ZRCH85,B16;4 (12; 



global routine CTO_WAIT CTO_VAl.UE, REF_NUM, Blir$L0C) 



IController time out wait 



TO, VALUE 
REF NUM 



BUF5L0C 



Functional Description • 

This routine is called to wait for the port/controller to either 
complete the queued command or time out the command, 
Formal Parameters : 

Indicate the time-out interval for this command. 

This argument contains the unique reference number 
assigned to this command being timed out by this 
rout t ne , 

This argument points to the outistd_buf location 
where this command is saved. At this location the 
received flag "recflg'' bit is examined within the 
the timeout loop and when it equals true will 
signal that thip command has been received by the 
interrupt service routine. 
Implicit Inputs : 

none 
Implicit Outputs : 

The command word in the out tstd.buf fer 'word zero of a command 
slot' is cleared out with the value *o' 100000' to indicate this 
is an unused out*std_buf fer slot and that it con be reused. 
Completion Codes : 

There are two levels of return status returned by this rout : ne , 

1, The DUP interrupt service returns to this routine a statu* code 
to indicate the success o f the connect i on/comroun I cot i oaf mechanism 
to complete the queued command. If the port/ control lv»- i <rs not 
time out then this return status is returned .*s th.< routines 
return status code. 

2. If the port/controller times out then the SA Register error bit 
is examined for the error bit set, If set then p;i port fatal 
error code is returned to the calling routine else a controller 
time out error code is returned. 

In all cases, if an error code is- returned (bit -■* 1) then the 
routine decode is called to decode the error code and does the 
necessary recovery actions. 

At the next higher level of return from this routine is another level 
of return status returned, This level test the success of the 
connection and also test the status field in the returned response 
envelope t\-r the success of the controller to successfully complete 
the requested command, 
Side Effects : 
none 

begin 



Oefore doing the timeout wait make sure that this buffer location 
that we're suppose to time out actually contain** the command re*" 
number that was sent to us via the formal argument. Error and 
kick the bucket if not the same. 



f .UUTSSTU. 
then 



.BUr" l.BUKSl.UC, CMU..REK) nequ .Hfch.N'iM Ms this the same ref_num 



Ml 4 



ZRCHHS 

REV B PATCH 00 



2863 
2864 
286S 
2806 
28b/ 
2868 
2869 
28 70 
2871 
28 72 
28 73 
2874 
28 7 c > 
2876 
287 7 
28/8 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
289.1 
2892 
2895 
2894 
289S 
2896 

289 7 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
290S 
2906 

290 / 
2908 
2909 
2910 
2911 
2**12 
<>9lS 



ZRCHBO RC25 DISK EORMATTER 
MODULE DECLARATIONS 

RE.T^STATUS - OSE.CODE; 
DECODE Os 

end; 



5-Apr-1984 13;46;24 
ll-Jan-1984 13:23:12 



SF.Q 0181 
VAX -11 Bliss-lfi V3--555 Page 3/ 

SPIDERJUSERS : [ NEALE , AZTEC 1ZRCHB5 . B16 ; 4 (12) 



! Indicate the error code 

•Call decode to report the error 



Loop on a one micro second delay for the number of times 
requested by the caller. After each delay see if the flag 
"rec.flg" has been set yet. Return "Ret_status" and clear the 
command word to ^o' 100000' to indicate this command has been 
received if this flag gets set before the timer expires 
Return a error code if the timer expires before the flog gets set 



incru i from to . TO.. VALUE do 

begin 

DELAY CC...US) j 



!Loop for 1 1 me -out ..value 

!Do the one micro second delay 



Exit routine with the DUP interrupt service routines "ret.. status" if 
"rec..flg" got set before the timer expires. 

\r .0UT$STD_BUF [,RUEiL0C, REC..FLG] eqlu TRUE lis this command received yet 
then 

beg i n 

OUTtSTD.Bl** [.BUTiLOC, CMD^WRD] * *o* 100000' ; 'Return the slot to the unused state 

return .RET ..STATUS j .'Return the interrupt service 3tatus 

end; 

Check the SA register for posted p«.o f errors just in case the 
port does not interrupt the host when a port error occurs. 

if ,RC2S_ADDR IRC5A, ERR.BIT'J then return RET. STATUS ■ PEE. .CODE; 

BREAK j ! Service any control C's 

end; 



The port/controller timed out if the code reached here, Return on error 
code to the caller and exit the routine, 



if .RC25 ADDR [RCSA, ERR BIT! 
then 

retvirn RET STATUS - PEE CODE 
else 

return RET. STATUS * CTU.CUIH- i 



J Is the SA error bit set 

• Port timed out with fata}, error 

•Port just timed out 



.lit OBI. 



$01 Y 



■ SBTTL C TO, WAIT MUUULfc DECLARATIONS 



N14 



/RCHUS 

REV B PATCH 00 



zrchbo f^c;?s disk formatter 
moduli: declarations 



000000 004167 OOOOOOG 



000004 

000010 

000014 

000016 

000020 

000024 

000026 

000050 

0000 32 

000036 

000040 

000046 

000032 

000034 

000036 

000062 

000064 

000070 

0000/2 

0000/6 

000100 

000102 

000104 

000106 

000110 

00011*? 

000116 

0001?? 

000124 

000130 

000136 

000140 

000144 

000146 

000130 

00013? 

000136 

000160 

000164 

0001/0 

0001/? 

0001/6 

000?0? 

000?06 



0000?? 

003001 OOOOOOG 
175716 



000001 

ooooum; 

000004 



162706 000006 

016600 0000?0 

006300 

006300 

012703 OOOOOOG 

060003 

003000 

131300 

020066 

001403 

012/67 

004/67 

00300? 

000436 

012701 

001411 

016/00 

001404 

005066 

003300 

00.13/4 

003301 

000/66 

003713 

100003 

01?/13 

016/00 

0004?/ 

01.6700 

016066 

t00003 

012700 000021 

000414 

1044?? 

003202 

020266 000024 

101/3/ 

016/00 OOOOOOG 

016016 000002 

100/63 

01?/00 000011 

010067 OOOOOOG 

062/06 000006 

000207 



100000 
OOOOOOG 

OOOOOOG 
000002 000002 



3-Apr-19M4 13:46:24 
U~Jan-l984 13:2;il2 
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SPIDER$USERS:[NEALE,A2TEC)ZRCHB5.B16j4 (12) 



Routine Size: 68 wQrd5 t Rout I r 
Maximum stack depth per invocation: 9 wordb 



CTO, 


WAIT: : 






JSR 


R1,$SAVE3 




SUB 


46 , SP 




MOV 


20(SP),R0 




ASI. 


RO 




ASL 


RO 




MOV 


40UT$STI*).BUF t R3 




ADD 


R0.R3 




CLR 


RO 




BTSB 


CR35.RO 




CMP 


R0.22C5P) 




HE (J 


1$ 




MOV 


^3001, RET, STATUS 




JSR 


PC, DECODE 


1$: 


CLR 


R2 




HR 


10$ 


2$: 


MOV 


01, Rl 


3$: 


BEQ 


6$ 




MOV 


I $01 Y.RO 




BF.Q 


3$ 


4$: 


CLR 


4C1.P) 




DEC 


RO 




BNK 


4$ 


3$. 


DEC 


Rl 




HR 


3$ 


6$: 


TST 


CR3) 




BPL 


7$ 




MOV 


4 100000, (R3) 




MOV 


RET. STATUS ,R0 




HR 


12$ 


7$: 


MOV 


RC2S.ADDR.R0 




MOV 


?CR0),2(SP) 




BPL 


<*$ 


8$: 


MOV 


^21,R0 




BR 


11$ 


9$: 


TRAP 


22 




INC 


R? 


10$ 


CMP 


R2.24CSP) 




BIOS 


2$ 




MOV 


RC23.ADDR.R0 




MOV 


2CR0),(SP) 




BMI 


8$ 




MOV 


#11 .RO 


115 


MOV 


RO.R* r. STATUS 


12$ 


ADD 


46 , SP 




RTS 


PC 


Base: ACSCQDE 


* 2414 



j BUF$LOC,* 



} *,REF.NUM 

i 

I I 

j *.$$TMP2 

l *,$$1M?1 

j $$TMP 

j $$TMP1 

; $$TMP2 



; *,RC$S.REG 



; I, TO. VALUE 
+,RC$S»REG 



2806 
2861 



2864 

2863 
28' 7 

2879 



2883 

28H8 
288/ 

289/ 



287 7 



2<K) / 

2909 
2<-M 1 

280b 



2914 



} I f 



/rch*p> 

hiv ii patch 00 



."US 
. u M l » 

*"V4 

. ,l VH 

i H *M 

k "M5 
.^54 
."US 

.V*40 

»: ( mi 

. u >4 4 > 
»'*4 5 
."#44 

. ,l #4 ; 

r><*4ft 

.^so 
.".'SI 

,>ms * 

»»*#*»4 

•"*> 1 

* lt **.4 
♦ "*.«. 

."#♦, / 

,-**/# 



/RCHC10 RC," 
MOtHI I DI.CI 



) DISK * OMMATTFR 
ARATIONS 



11 



Apr 

Jan 



l"fl4 

14M4 



I5i4fr 



t J 4 



if U 01 ft'. 
VAX H Bliss 1'.. V* 'M Paga »/j 

SP10fc»IU?ifcHSi INKALt: .A/TfcC J/ftCHtJL, ,bi6 j4 ( Uj 



global rout ine ABORT 



} Aborts remote program 



its the fntcutioo o' a 
a successful resoonne 
program has stopped 
Note that the sanding 



KjnctionaL Description : 

Tha abort program command Is used to tarmim 

remote program «n an ordarly fashion. When 

la received to this command tha ramota 

executing and tha server ia In idla stata. 

of thia command doas not preclude furthsr U9nd data or receive data 

exchangee: t)n tha contrary, tha ramota program may ba designed to 

send Out termination statua and possibly even eeW Quest i one during 

its forcad a^it sequence, Tha tima out for thta command is a t ! \ed 

10 aaconds **\d if a raaponsa is not received by than t*e 

connection to tha ckiet should ba terminated, this cenwnand >* only 

lagal if t ta dust is in active «tat*. 

formal Parameter* • 
nona 

Implicit Inputs j 
NSD_Sl-UT 



Thia global storaga gats loadad by tha rout i na 
'Gat nad' mno in it is storad tha ne*t sand ring 
descriptor slot where tr»e port ''control l«tr 
ba polling on and tha ploca to put 
command packet , 



thou 1 d 
thia commands 



Implicit Outputs ; 
nona 

Completion Codes i 
MfT .STATUS: 



Return atatus pititt back to tha calling routine 
tha status of tha juat issued command. 



Side tffacts : 

Any remote program running in the controllers ()M machine will 
ba aborted. 



begin 

local 

Rff HUM, 
ABO But ll.UC, 

Tt:MPi 



Stores unique c*>d ref nu<*ber 

'>tor*n outtstanding ctfxi buffer location 

A place to put the read IP register data 



J Before we led up the command packet up with all thia good information gat 
! thene^t %mr\d descriptor nlot and a unique command reference number, 



U T NSO ( )j 

Hf f N<JM . Ul ! CMUtRf » < )i 



!C*et tne ne\t «end desc slot 
fUet n un i que command rm^ num 



! 00 Port command envelope Header field definition 

i 

'jNO tNVMOPl [.NSO MOT, MSli ifW.lM) • ',^ fc AUT, !io«d the lengtn Of tn**lQCC 

SNOJNVHOP: I. NSO. SUM, CRIOPM - ONI | !l oad c^td: t h 

'jNU.tNVtLUHt l.NSU w ^LUI» MbU.TtPLj - Oi !loa<* mt-ttttagft tyP« 



CI 



) 



.'HCHH'i 

REV H PATCH 



00 



a'MCmWO RCi'S DISK fORMATTFH 
MODU b DECLARATIONS 



^/^ 
.'9/4 

^9/s 

i?9 /6 
.?'♦// 

..'9/9 
i"»980 

."WftV 
* U KV5 
,*984 
. 1 98 , i 
^986 
t.'98 ■' 
u'988 
i?989 
^990 
»'991 

.?9*V 

,'995 

.' 9«» 

t u #9/ 
.'998 
,»999 

5000 
5001 
500*' 

5005 

50O4 

soos 

50O6 
500/ 
5008 
5009 
50 1 
5011 
501,' 
5015 
5014 
50 IS 
50 H. 
501/ 
5018 
5019 
5O.'0 
50.' 1 
50,V 
50.' 5 
HV4 
5o. ". 
50. 9, 
5*,." 

502ti 



SNO ENVELOPE I.NSD.SIOT, CONN ID) - DUP i 
! DUP conmaod envelope field definition 



''Apr 1984 15-4f J ; < , 4 
11 Jan -1984 l5:i'5j 1<? 

♦Load connection ID 



VAX 11 HI 1st* V> V5 SV> 
5PIDERIUSERSifNEALE..A/TKC)/RCHU!>.B16'|4 



SFTJ 18'* 

Page 



40 
C 13 ^ 



SND .ENVELOPE [.NSD. SLOT, CMUJ.Rfcfl • .RFF.NUMj 



JHi order ref number 
•Unused low order 
! Unused hi order 
•Load opcod 
•Reserved field 



SND ENVELOPE [ .N5D SLOT, CMD HREF" ) - ZEROj 

SND ENVELOPE [.NSD SLOT, LN L USED J - ZEROi 

SNO ENVELOPE [ . NSO SLOT, UN MUSED) • /LROj 

SNO ENVELOPE (.NSD SIOT, OPCODE) - OP ABT , 

SND ENVELOPE I . NSO SLOT. RSVO ) - /EPOi 

SNO ENVELOPE [.NSD SLOT, MODIFIER) - ZERO» 

! Call the load out Intending command buffer routine 

J er>d load this command into the buffer. The return 

! from thie routine will point ue to the buffer location 

! where this command is etored. later «e can loo** at 

! this location to aee if the interrupt service routine 

! has rece I ved and process i t . 
i 

ABj But ILOC - i ,)MU OUTISTD HUf (.REE NUM)| Jload the command 



fOefine referance number 



f .ABO. BUt ILOC eqlu OBE..C00E then DECODE ()j 



Jfrror if buffer i*j full 



Set the ownership bit to 1 giving this slot to the port/controller 

StNO RING {.NSD SLOT, OWN BIT) • PORT OWNED) 

Mead the IP register to stimulate port {tolling 

*MP • .RCi'YADDR (RCIP, RC ALL h 

T i <** Out the port/controller processing the command, 

Tne first test tests the connections >b!llty to 
respond to this command without any error** in the SA 
register and for the command not timing out. 

Tne second tests the O^P server for good status. l» 
bo>d status is sent back then an error code is returned 
to th« calling routine where the routine ''decode" will 
decode and te*«e the appropriate recovery. The time 
out routine will loop on delaying and enacting tne ni 
bit of the first word in the outtstd buf for a true. 
When true signals us that the interrupt service routine 
has received the endpacUet and no connection errors 
were detected. 

f CTO WAIT (5000, .R|> NUM. . AHO HI* II UC > then 01 COM Mi ! ltf return an *rrw> 

Uet the return envelope address tro*r the outlntd buf 
at thi* commands buffer location and check- the p^c^et 
for good strttun error nr>d die if bad -« t a t vi-» nah returned 

HtT.tNIAU * .aUUSlU.BUr UAUU.QUEiLUC* INV.ADRh !b*t t*« **«t *>w aar 



-'RCNHS 

Ml V B PATCH 00 



30/'> 
SO 50 

30 .V 

305.5 
30 54 
50 V» 
30 5b 
30 3/ 
5058 
5039 



/RCHBO RC/S Of ».;k ► ORMATTFR 
MUDU.F DECLARATIONS 



! Now t«*t for good ntntus 



if .RFT FNIAD I STATUS J ntcju /FRO 
thm 

rtturn R* 1 STATUS • RSb^CUOfe 

els* 

return .Rfc T ..ST ATUS j 

endi 



^ ' 



S Apr 1904 l3;46i/4 
11 Jdn-t9tt4 I3i£3il£ 



'if <J 01HS 

VAX 11 Rlinw 1', V^ SS C . P«o* 4 1 

SPlOtR*USP.RSs[.J. ^Lt.A^TLC)/RCHBt>.til6j4 C15j 



• Test the »tatu» 

JReturr. a "Response stfttun err" codt" 

jThia ret status I» ooot* or bod 



OOOOO 
000004 
C 00006 
0000 1 / 
000016 
C 000/0 
0000/4 
000030 
000034 
OOOoV 
00004 6 
0000 SO 
0000">4 
00OO6? 
OOOObb 
OOOO 7 ? 
0000/6 
00010.' 

ooo no 

000114 
0001/0 
0001// 

000 150 
000 l 34 
000 1 56 
00014 c' 
000146 

000 1 SO 

uootw 

000 is* 

000164 

0001 // 
0001 lh 
000/0/ 
000/04 

000/06 

000/1,' 
000/14 

oou/ib 

tJOO.'/O 
00'».'.'4 

060//6 



004 16/ 
O0S/46 
004/67 
00</6/ 
01000*? 
016746 
Oh' /4b 
004/67 
01/ /bO 
01/ /Ol 
060001 
11^/11 
112/61 
010/60 
00SO60 
OOSObO 
O0SO60 
IK' /60 
10SO60 
005060 
010/16 
004/6/ 
010O01 
OPOl// 

ooioo/ 

004/6/ 
016/00 
006 300 
006 500 
066 /OO 
0*)/ /60 
01 //66 
016600 
01<>/16 
010/46 
010146 
004/6/ 
0J.'b/6 
006000 
10M)U/ 
'J 04 /6/ 
(,-10 100 
006 400 



OOOOOOG 

1/5512 
17S4S4 

ooooooo 

00O0S4 

ooooooo 

000014 
00000/G 

OOOOOl 
00000/ 
000004 b 
0O0O06G 
0O0010G 
00OO12G 
000OO6 
0000 1ST, 
0000 166 

1 75/5/ 

00/001 

1/S416 
OOOOOOG 



OOOOOOG 

1 OOOOO OOOOO/ 

OOOOOOG 000004 

OO0004 

0056/0 



ABORT 



OOOOOOG 



OOOOOl 



0000 14 G 



\i 



17735b 



1 /!". 3 54 



/* 



.SBTTL ABORT MODUF 0FXI-ARAT10N5 

JSP Rl.lSAVF/ 

TST (SP) 

JSR PC.GET.NSD 

JSR PC.GFT.CMDtRtf 

MOV RO.R/ 

MOv NSO.SLOT, ISP) 

MOV 054 , ( bt> ) 

JSR PC.BLIMU. 

MOV 014, SNO. FNVl t, Of* | ( RO) 

MOV OSNO.ENVfcLOPF. ^.Hl 

ADO R0.R1 

MOVB #1,(RD 

MOVB #?,HR1) 

MOV R/,SNO.fcNVELOPt *4(R0) 

CI R SND.FHVFl OPF. »6(R0> 

CLR SNO. ENVF. L OPF ♦ 10( RO ) 

CLR SN0.FNVFL0PF.1?CR0) 

MOVB Ob.SND.FNVtLOPl >14(H0; 

CL.R9 SNO . fcNve LOPt. ♦ lSi PO ) 

CLH SNO.FNVf I OPt .lblPOl 

MOV R2 , i SP ) 

JSR PC,lO*'\OUT$STu.UUf 

MOV R0.R1 

CMP R 1,0/001 

UNt U 

JSR PC, OF COOK 

MOV N'D.Sl OT.RO 

A SI NO 

ASl RO 

MOO St- NO.RING.RO 

BIS O 1 OOOOO ./(RO) 

MOV iJRC/S.AD()H,4( SP ) 

MOv 4(sf"-),«0 

MOV 056/0,(SP) 

MOV R/, -CJM 

Mi)v Ml, l ',P > 

JSR PC.CTO.WAIT 

CMP ^SP)* ( t*,P>» 

MOR RO 

BCC /» 

JSR PC .OF COOF 

Mgv Wl.MO 

ASl RO 



I •.RFF.ht* 



; RF.F.NUM,* 



j Rtf ,NiJM, * 

l • .ABO. HI* U OC 
j AUO.UUf'llUC,* 



j •,«C*S.Rtv» 

I RCls.wtu, MMP 

I 

t RM .Nil, * 

i rtHU.UUMl.UC,* 



/ r »l r > 
/'Mi 4 



/•>/! 
/<*// 

w M >/6 

/^/ : 
/*>/« 
/**;w 
/ v >«o 
/*wi 

/*»M/ 

,'Wl 



/«MM 

50// 
30/ 1 



j AUU.UlfU.UC,* 



30/6 



~) 



/RCHHS 

REV El PATCH 



00 



000.! 50 
000/5,' 
000/40 
000/44 
000/ SO 
000/ iu! 
000/56 
000 /t./ 
000 /(i 4 
000/ /O 
000/ i*4 



006 500 
016067 
016000 
005760 
001405 
01/ zoo 
01006/ 
O0O4O/ 
01^ 00 
06/706 
000/07 



2RCHB0 RC. -.UK K)RMATTER 
MODULE DECi ...;ATIONS 



00000/G 
00000/G 
000016 

000051 

oooooox; 

OOOOOOG 
000006 



OOOOOOG 



5$ 

4$ 



VWpr 1484 13:46:, '4 
U Jaiv).%/1 13:/5:1/ 



ASl. 


RO 


MOV 


0UT$STD.BiJf'»/CRO),REr,t£NJAD 


MOV 


UUTIS10.BUK */lR0),R0 


TsT 


16CR0) 


BLQ 


5$ 


MUV 


05) ,R(j 


MOV 


RO.RET. STATUS 


BR 


4$ 


MOV 


Rt T. STATUS, RO 


ADD 


06 , r,p 


HTS 


PC 



Routine SI/*; ^S Mords, Routing Hose: ACtCODb ♦ /6/4 
Maximum stack ctepth per Invocation: 9 wordy 



Sf.U 0186 
VAX 11 (Hiss 1*. V^ S'/i Paar 42 

SPIDER *USE RSs [ NEALb . A/ TEC J/RCWU5.B16 j4 C 1 3 j 



5033 

50'/, 
W, 5 
2915 



3040 



) 



/HCrlB'j 

REV B PATCH 



00 



5 



5041 
304? 
3047. 

3044 
304 'i 

3046 
304/ 
3048 
3049 
30S0 
30M 

30*i 3 
30S4 
3 OSS 
301>6 
SOS ? 
30SH 
30SS 
3060 
SOM 
30t'-i? 
3063 
3064 
306S 
306b 
30*» f 
3068 
3069 
30/0 
30/1 
30/? 
30/3 
30/4 
30 /*» 
30 /6 
30// 
SO/8 
30/9 
3 OHO 
30H1 
308? 
3083 
3084 
S08S 
3086 
308 / 
3088 
3084 
3040 
3091 
309? 
3093 
3094 
309S 
SU'W. 
309? 



ZRCHBO RC?S DISK FORMATTER 
MODU b DECLAMATIONS 

global routine UtT.DUST. UTATUS ■ 



h Apr 1984 13j46:?4 
11 Jan-19H4 lliPZil? 

!Gets DUP nervcr status 



SE.Q 018/ 

Paa« 43 
5PI0ER*USERfijlNEALE.A/?TEC]/RCHUb.blbj4 U4 J 



VAX -11 BUhh 16 VS r>ss 



Functional Description : 

This command allows the host program to interrogate the Dl<P nerver 
to determine its caracter iet i c«, its state and the state of the 
program currently running (if any). It is legal in either idle or 
active state and does not affect the state of server, Tt has a 
fined timeout interval of 3 seconds , If the response times out, the 
host should break the connection, 

Formal Parameters : 
none 



Implicit Inputs 
NSD..SL0T 



This global storage gets loaded by the routine 
'Get nsd' and in it ' s stored the rent send r i ng 
descriptor slot wnere the port/controller should 
be polling on and the place to put this commands 
command packet. 



Impl i c i t Outputs 
none 

Completion Codes 
RhlT STATUS 



ide Effects 



begin 

local 

Rf.F NUM. 
UDS .but' HOC, 

IF. MP; 



Return status pniHts back to the calling routine 
the status of the just issued command. 



! Stores unique cmd ret' number 

! Stores out $**t and «ng end buffer location 

JA place to put the IP read d»ta 



Before we load up the command packet up with all this good information get 
the ne*t send descriptor slot and a unique command reference number. 



GET ..NSD ( )t 

REE NUM - GET i MOINIT ( ), 



•l»et the next send desc slot 
!CIet a unique command ref num 



! OQ Port command envelope Header field definition 
i 

SNO. ENVELOPE (.NSD Si Of, MSli iENMh] - s/ GDS i ilond the envelope s I .-e 

SNO ENVELOPE (.NSD. SLOT, CREDITS) - ONE; 'load the credit si/e 

SNO ..ENVELOPE t . NSD 51.01 , MSG TtPLJ - 0, {load the message type i Sequent laP 

SNO ENVELOPE t.NSD Si Of. CONN ID] - UUP i 'load the connection 1U 

i 

! OUP generic command envelope field definition 

SNO I NVM DPT {.NSD SLOT, CMC) I Hf t) - . ME f NUH j llond command reference number 

SNO.ENVH.OPT I .NSD SLOT, CMD HHET J - *'ER0| !Co™nr.nd r«*<jr«n C e low order 
SND.tNVLLQPE l .NSU.SaUUT, UN.LUSEU] - /EHOi Mow order unused 



(i'l 



.) 



/rchhi? 

RfV PATCH 



00 



5090 

50^ 

5 LOO 

5101 

310? 
5103 

5104 
51 OS 
5 1 Ob 

51 u; 

5106 
310<» 
5110 
51 U 
511.? 
5113 
3114 
311*. 
Ml*) 
31W 
3118 
31 H* 
51/0 
31/1 
51. V 
51/5 
M.'fl 
31/S 
31/6 
31// 
51/8 
3l/ l # 
3 MO 
5131 
513? 
3153 
3134 
313') 
3 I M* 
313/ 
3 Mb 
M3" 
3140 
3141 
314/ 
314 3 
3144 
314S 
3l4o 
314/ 
M4A 
514'* 
3 ISO 
31M 
SIS/ 
3lM 
51^4 



ZRCHBO RC/b DISK KJRMATTRR 
MODULF DECLARATIONS 



? Apr-19fl4 M:46:/4 
11 J»n 19H4 I3j/3:li? 



VAX 11 HI iss 1(> V3 SSS 
SPIDt'RIUSfcRSj INKALfc.A/TEC lz'RCMB5 



SKJ 01 AH 

Page 44 
B16j4 (14) 



♦HI ord«r unused 
{Load opcode 

!Rf»orvtd ft* eld 
•Load modifier field 



SNO FNVn.OPE f.NSu SLOT, UN HUSK)] ■ /FROi 

SND F.NVH.OPE [ .N5D SIOT, OPCODr. ] - OP GDSi 

SNO t.NVLl.OPL I.NSD_SUH, RSVD] - /EROj 

SNO.rUVLLOPt KNSL) SLOT, MODiriLR] - /fcROj 
i 

! Call the load outtstanding command buffer routine 
and load this commmd in^o the buffer. The eturn 
from this routine will point us to the buffer location 
where this command is stored. liter we can looi at 
this location to see !» the interrupt service routine 

! has received and process it. 



GOS_B»"HOC - lOAD.OUTISTD.BUr' (.RK NUM ) j ILood the command 



if .UDS BUfM.OC eqlu 0Br.COM-: then DICUDC ()i 



!r.rror if buffer is 



J Set the ownership bit to 1 giving this slot to the port/controller 

i 

St:N0 RING [.NSD.StOT. OWN BTI 1 • PORT UWNr'D; 

! Read the IP register to stimulate port polling 

ThMP « ,RC/S^A0DR IRCIP, RC All); 

» 

f Time out the port /controller processing the command. 
i 

» The first test tests the connections ability to 

* respond to this command without any +rrcrx in the SA 

! register and for the command not timing oc t , 

i 

! The second tests the OUP server for good status. If 

! bad status is sent back ther. an error code is returned 

J to the calling routine where the routine "decode" wilL 

• decode and take the appropriate recovery. The time 

* out routine will loop on delaying and checking the hi 

! bit of the first word in the outlstd.buf for a true. 

• Uhen true signals us that the interrupt service routine 
! has received the endpacket and no connection errors 

f were detected, 

i 

if CTO.WAIT (3500, .Rb>' .NUM, .GDs .UUt'Cl.UC) then Dt -COM- (^ • la return an error 

i 

! uet the return envelope address from the outtstd buf 
! at this commands buffer location and checi- the packet 
! for good status error and die if bad status was returned 



Mir LNlAU 
i 



.UUMsru.Hl* I .liUS.HU MOC, UNV.AORlt 
! Now test for good status 



JGet the ret env adr 



if .HI- 1 \HM\D (STmTUSJ nequ /I HO 
then 

return RLT W STATUS » Rbli.CUUt. 



* le-.t the statu*. 

J Re turn a "Reuponuc titatui* <rr 4 * cod* 



) 



/news /rchho hc/5 disk mirmatter 

REV B PATCH 00 MODULE DECLARATIONS 



3155 

315,' 
3158 



•else 



return .RET„STATU5 i 



end; 



5-Apr-l^H4 l3i4b;/4 
ll-Jnrvl9H4 13:?3:1? 



SEN 014'* 
VAX 11 HI i ms 1'. V3 555 p« fle 45 

SP IDER$ USERS :[NEALE.A/TEC]ZRCHB5.bl6j4 (14; 



.'This ret_stotus iy good or bad 



OOOOOO 004 if,/ OOOOOOG 



000004 
OOOuOb 
00001/ 
0000 Lb 
0000/0 
0000/4 
000050 
000034 
00004/ 
000046 
000050 
0000 r >4 

00006;? 

000066 

oooo // 

00OO/6 

00010.' 
0001 10 
O00114 

000 i/o 

0001// 

0001*76 
000 1 50 
000134 
000136 
0001 4 / 
000146 
000 1 50 
000 IV 
0001**6 
000164 

000 i // 

0001 /f. 
ooo/o/ 

000/04 
000/06 
000/1/ 
000/14 
"00/16 
000//0 
000//4 
000//6 
000/50 
000/ 5/ 
000. '40 
(J00/44 
000, '50 
000^5/ 



005/46 

004 /b / 

004 76 / 

01000/ 

016/46 

01/ /46 

004 /b / 

01,2/60 

01/701 

060001 

11//-1 

11/ /bl 

O 10/60 

005060 

005060 

005060 

11/ /60 

105060 

0050bO 

010/16 

004 /6 / 

010001 

0/01// 

00100/ 

004 /6 / 

016/00 

006 300 

006500 

Ob 6 /OO 

05/ /60 

01 //66 

016600 

Ol/Zlo 

010/46 

010146 

004 /6 / 

0//6/6 

006000 

10*00/ 

004 /b / 

010100 

006 500 

006 500 

01606/ 

016000 

00*i /bO 

001405 

01/ /oo 



1/5014 
1/5156 

oooooch; 

000054 

OOOOOOG 

000014 OOOOOOG 

00000/G 

000001 

00000/ 000001 

000004G 

00OO06G 

0000 10G 

0000 1/G 

000001 000014G 

0000 1'iU 

0000 16G 

1/4/54 

00/001 

i ,'51/0 
OOOOOOG 



OOOOOOG 

100000 00000/ 
OOOOOOG C00004 
000004 
006654 



177O60 



175036 



00000/G OOOOOOG 

00000/G 
000016 

0000.51 





.SB TIL 


GET. DUST. STATUS MODULE DECLJ 


GET 


DUST. STATUS 


* • 




JSR 


RI.ISAVE/ 




TST 


(SP) 




JSH 


PC .lit 1 ,NS0 




JSR 


pc,t;r.r.CMD$Rt:r 




MUV 


ro.r:? 




MOV 


NSD.Sl.OT, (SP) 




MOV 


054, (SP) 




JSR 


PC.RLtMUL 




MOV 


014 , 'JND. ENVELOPE (RO) 




MOV 


0SNO. ENVELOPE* 2 JJU 




ADO 


R0.R1 




MOVH 


01. (Rl) 




MUVB 


02.UR1) 




MOV 


R/, SNO. ENVELOPE >4(R0) 




CL.R 


SNO. ENVELOPE *6( HO) 




CLR 


S NO. ENVELOPE »10( HO) 




CLH 


SNO.ENVEl 0PF *1/(R0) 




MOVB 


01 , SNO, ENVELOPE * 14'. HO) 




CL.RB 


S NO. ENVELOPE ♦ISCRO) 




CLH 


SNO. ENVELOPE tlb(RO) 




MOV 


R/,(5P) 




JSR 


PC.LOAD.QUTISTD.UUf 




MOV 


RO.Rl 




CMP 


Rl, 0/001 




BNt- 


1$ 




J5H 


PC.DECODf 


1*: 


MOV 


NSD.Sl.OT.RO 




A SI. 


RO 




ftSL 


HO 




ADD 


St ND.RING.RU 




BIS 


0100000. /(RO > 




MOV 


a«C/5,A0DR.4(SP) 




MOV 


4(SP).R0 




MOV 


06654 , ( SP ) 




MUV 


H/, (SP) 




MOV 


Rl, (SP 1 




JSR 


pc.cro.wrti f 




CMP 


(5P)*.(SP)» 




HUH 


RO 




BCC 


1 




JSH 


PC, Pi CODE 


/$: 


MOV 


HI, HO 




A SI 


HO 




AM 


HO 




MOV 


OUMSTD.HU* ./iRoMit T.ENIAD 




MUV 


PUMSIP.UU */(Ro),HO 




TST 


Ib(RO) 




M 


3$ 




MUV 


031, HO 



*.Rf.F.NUM 



RtK.Nt.iM,* 



REE. NUM.* 

*,GUs.m» SI oi: 
GDS.BUf-~U.UC,* 



* ,HC*5 .HI L. 
HCiS.REG. TEMP 

M * .NUM.* 
GDS.UUf'U.OC,* 



I GDS.UU* H.UC,* 



304 1 

308 5 
3084 

3088 



308<> 

30')0 
SO'M 

S04S 

3o<*, 

SO 1 *.' 
30V8 
50 l »'» 

3 lot) 

-5 101 
5110 



311/ 
311/ 

31/1 

3140 



314* 



515/ 



31S4 



/HCHHIi :"RCHHO RC.'S DISK MiRMATTGP 

REV tl PMCH 00 HODULF. DECLARATIONS 



000^*6 OtOOh/ 

OOlV*..' 0004 Ot" 1 

000.764 016700 

OOO.VO 06J* 706 

00CXV4 000207 



ooooooi; 

OOO0O0G 
000006 



1 1 



S-Apr 1<>84 H;4S: ( :4 
11 Jan-I9tt4 13:23$!,? 





MOV 


RO, RET. STATUS 




HH 


4* 


M: 


MOV 


RET. STATUS, RO 


4$: 


ADD 


«6 , r»p 




R 1 s 


PC 



VAX -11 BlIs-i-16 V3 liSfi 



SEH Ol<*0 

Pnot 46 
SPIDER$UStRS:[NEALL. AZTEC J/RCHU!i # B16j4 ( 14) 



307,? 
3041 



; Routine Sire: 9S words, Routine Uose: AC5C0DL ♦ 3li?t? 
; Maximum stack depth per invocation: 9 words 



31S9 



/RCHBS 

REV B PATCH 



00 



3160 
3161 
3U>? 
51*. 5 
SIM 
M6 r > 
3166 
316/ 
3168 
SHi4 
31/0 
3Wi 
31"/? 
31/3 
31/4 
31 /S 
31/6 
31// 
31/8 
3179 
3180 
3181 
318^ 
3183 
3184 
318*1 
3186 
318/ 
3188 
318'J 
3 UK) 
3191 
319? 
3193 
3194 
319S 
3196 
3 1 9 7 
3198 
3199 

V00 
V01 

VOS 
3.' 04 
VOS 

Vot> 

VO/ 
V08 
V0 l * 

vio 

VI 1 
•VI.' 
VI 3 
3/14 

Vl'» 

V16 



ZRCHttO RC^S DISK KORMATTFR 
MODU.E DECLARATIONS 

global routine EX.. SUP PROG - 



functional Description • 

This command causes the 



^ .1. . J 

L> Apr- i 984 
11 Jan -1984 



r Jt U 0191 
15:46:24 VAX -11 Bliss -16 V3 555 Page 4/ 

13:23:12 Sf J IDtR*USERS j [NtALt . AZ"! EC J/RCHB5.B16 ,*4 (15'j 



{Executes supplied program 



server to transfer the program from host 



memory to an 
host supplies 
containing the 
of the program, 
needed to r.jn 
which is none 
the server i s 



area in the controller and start Its execution. The 

the address and length (in bytes) of a buffer 

program header and initial loadt the starting 

its memory requirements and any relocation information 

under the server are in the program header in a format 

of the host business. This commmand is only legal when 

in the Idle state and return of a successful end packet 



put?; the server ; nto to active state. 

The time out interval for this command is 30 seconds. 



formal Parameters 
none 

Implicit Inputs : 
NSD^SLOT 



Implicit Uutpvtts 
A/KMTR: 



l)MSA 

OVSA 
HOSA 



Completion Codes 
RET ..STATUS: 



This global storage gets loacie-j by the routine 
'Get nsd' and in it is stored the ne>st send ring 
descriptor slot where the port /control ler shoulo 
be polling on and the place to put this commands 
command packet. 



A/fmtr is the vector produced by DMCONV program and 
is decalared in module AZKt.lt>. 

These three bound addresses point to specific area 
in the DM code buffer 'a/tmtr' and are used to 
define the buffer descriptors within this command. 



Peturr. status passes back to the calling routine 
the status of the just issued command. 



Effects : 
lite DM machine in the controller goes from the idle state 
active state on return of a successful return packet, 



to the 



begi n 

local 

Kf-> NUM. 
E-SP HUFU.0C 
U-MPi 



J Stores unique cmd ref number 

[Stores outlstnnding cmd buffer location 

!/>. place to put the read IP register data 



He tore we load up the command packet up with all tnis good information get 
the ne*t send descriptor slot and a unique command reference number. 



GET NSD 
REK.NUM 



( ); 

■> GET 



.CMDJRtK ( )j 



!Get the ne v . t send desc slot 
!Get & unique command r^t' num 



K 1 r ) 



ZRCHBS 

REV B PATCH 00 



321/ 
3218 
321<» 
3220 
3221 

3223 

3224 

322S 

322ft 

322/ 

3228 

322 l » 

3230 

3231 

3232 

3233 

3234 

32JS 

3236 

3237 

3238 

323^ 

3240 

3241 

3242 

324 3 

3244 

324t> 

3246 

324 / 

32' 4 H 

3249 

32S0 

32M 

32S2 

32b3 

32!j4 

32Vi 

32 S6 

32'>/ 

32S8 

32 V* 

3260 

3261 

3262 

326 * 

3264 

326S 

3266 

3, »6 / 

3268 

326 l > 

32/0 

32/1 

32/2 

3273 



ZRCHHO >:C2S DISK f ORMATTER 
MODULE DECLARATIONS 



S-Apr-1984 13:46:24 
11 -Jon -1984 13:23:12 



SEQ 0192 
VAX 11 Bliss-16 V3-SS5 Poo* 48 

SPIDER$USERS;[NEALE.AZTEC]ZRCHB5.B16j4 C15; 



UU i'o^t •.' ommand envelope Header field definition 



SND_ENVELOPL 
SND ENVELOPE 
SN0„ENV c .L0PE 
SNO ENVELOPE 



I .NSDJJLOT, 
[ .USD._SL.0T, 
r .NSO^SLOT, 

[ .NSD SLOT, 



MGG..LENOTH] • SZ^fcSP; 'Load the message length 
CREDITS] - ONE} 'Load the credits field 
MSG..TYPF-] • Oi .'Define the msg type 'Sequential' 
CONN. ID 1 - DUPi ! Define the conection ID 



DUP generic command envelope field definition 



S.^.. ENVELOPE [,NSD_5L0T, CM0_LRCF] - .REE.NUHj 



SNO ENVELOPE 
SND ENVELOPE 

SND ENVELOPE 
SN2 ENVELOPE 

SNO ENVELOPE 
SND ENVHL0 D E 



[ .NSD SLOT, 
I .NSCSLOT, 
[ .NSD .SLOT, 
[ .NSD SLOT, 
[ .NSD. .SLOT, 
[ .NSD.SLOT, 



CUD HREF] - ZERO} 
UN I USED] - ZERO 
UN_HUSED] - ZERO 
OPCODE] * OP ESP 
RSVD] - ZERO; 
MODIFIER] - ZERO; 



!Load command ref number 



!Zero Hi order word of cmd ref 
•Not used in DUP impl i rrentnt i on 
•Not used in DUP impl i men tat i on 
!l oad the command op -code 
!Not used 



! Command <%pecfic command envelope field definition 
i 

! Ryte count of initial transfer (from bytes 3 of the program header). 
i 

SN0„ENVU_0PE r.NSD„SL0T, BLO CNT ] - .AZFMTR [URDU]; !Byte count low word 
SND . ENV! -OPE [.NSD SLOT, HHI_CNT] - .AZEMTR IWHDDi !Hyte count high word 



Buffer ;>i;criptor definition for in it 
byte of this buffer is byte of 



SND 
SNO 
SNO 
SNO 
SNO 
SNO 
SNO 



ENVELi.r*: 
ENVtLLPt 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVEL')!\- 
.ENVELOP- 
ENv"-:L0i j E 



buffer 
SLOT, 



al load, first 
program header. 



I ,NSD 
[ .NSD SLOT, 
[ .NSO SL01 , 
[ .NSD SLOT, 
[ .NSD SLOT, 
I ,NSD_SL0T, 
I .NSD .SLOT, 
[ .NSD_SLGr, 
I .NSD.SLOT: 



BPA LO] « HDSrt; 
BPA HI] - ZERO? 
QBUS EX I ] - ZERO} 
RSVJ - ZERO; 
UGA CHAN] - ZEROj 
RSVO] - ZEROj 
RSVD - ZERO} 
RSV2] - ZERO; 
RSV3] - ZEkOj 



J Low un i bus adrs <0 IS** 

JUnibus a<}r*i bits <16-l/> 

}Q bus extent ion adrs 

IReserved field 

! Un i bus adaptor channel number 

! These next fi>ur words are not 

lused In the DUP implementation 



j 
i 

i 

i 

SNO 

SNO 



These nftxi. 
overlay ou 
and just p 



field definitions are the same as above except they 
ffer descriptors, 
reflx them with a 



To make 1 i f e ^awy 
$ for unioueness. 



for me I'll use 



are for the 

the same name*; 



The overlay area immediately follows the initial load image in the program image. 



envelope 
envelope 
sno envelope 

snd envelope 
envelope 
envelope 
envelope 

ENVH OPE 
ENVELOPE 



SNO 

SND 

SNO 

SNO 

SND 
j 

! Call the 

J and load 

! from this 

J where, tht 



r .NSD.SLOT, 
[ .NSD^SLOT, 
[ .NSD SLOT, 
C NSD SLOT. 
[ .NSD, SLOT, 
f .NSD SI 01, 
T .NSD SI 01, 
f .NS0..SL0T, 
[ .NSD SLOT, 

lnad out* 

thi<» comman 

rout : i »e will 

o command 1 



$BPrt_i.O] - .OVSAj 
$BPA HI] • ZERO; 
I QBUS EX! | - ZERO; 
CRSV] • ZfcRO; 
IUBA.CHAN] ■ ZEROj 
iRSVO] - ZERO; 
• RfiVll - ZEROi 
*RSV2] - ZERO i 
IRSV3] - ZERO; 



low vjnibus adrs <0 IV»> 
Unibus adrs bits <16 17> 
U..bu9 extent ion adrs 
Reserved field 

Un i bus adaptor channel number 
These next four words are not 
used in the DUP implementation 



standing command buffer routine 

d into the buffer. The return 

pO'nt us to the buffer location 

a stor-ed, Later we can look at 



LI 



/RCHB5 

REV B PATCH 00 

3274 

3275 
32/6 
32/7 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
329 / 
3298 
3299 
3300 
3301 
330> 
3-1 ,3 
■ 304 
330 r i 
.» -c 
o 30 7 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 

3319 
3320 
3321 
3322 
: : M 
... '4 
3325 



/RCHBO RC25 DISK KlRMATTER 
MODULE DECLARATIONS 



S-Apr-1984 13:46:24 
11 -Jan- 1984 13 1 23 s 12 



5EU 0193 
VAX 11 bliss 16 VA S55 Page 4 9 

SPIDERIUSERSs [NEALE,AZTEC)ZRCHB5.B16|4 (15) 



this location to see If the interrupt service routine 
has received and process it. 



ESP_BUr$lOC - LOAD..OUT$STD.BUF (.REF.NUM); 'Load the command 

if .ESP„BUF$LOC eqlu OBF..COD. then DECODE ()j *Error If buffer Is full 

! Set the ownership bit to 1 giving this slot to the port/controller 
i 

SEND..HING [ .NSD.Sl.OT, OWN ..BIT] - PORT.. OWNED i 
j 

! Read the IP register to stimulate port polling 

i 

1EMP - ,RC25. AD!)R [RCIP. RC.Al.Lli 

Time out the cort/controller processing the command. 

The f * :■ st vest tests the connections ability to 
resp<*n<j *o chis command without any errors in the SA 
regi'?*er and for the command not timing out. 

The secc *>d tests the DUP server for good status. If 
bad status is sent back then «jn error code is returned 
to the calling routine where the routine "decode" will 
decode and take the appropriate recovery. The time 
out routine will loop o.i delaying and checking the hi 
bit of the first word in the outJstd buf for a true, 
When true signals us that the interrupt service routine 
has received the endpacket and no connection error*; 
were detected. 

if CT0_WAIT (3500, .REF.NUM, ,ESP„8UF $L0C) then DECODE O; • Is return on error 

Get the return envelope address from the outtstd..buf 
at this commands buffer location and check the packet 
for good status error »t\d die if bad status way returned 

RET Rt$AD - .OUTiSTD.BUF [ .ESP^BUFSLOC, ENV.ADRh .'Get the ret env adr 

Mow test for good status 



i: .i<ET EN$AD [STATU!;] nequ ZERO 
then 

return RET STATUS * RSfc^CODb 
elsr 

r i-j t urn . R E T _ S T A T US t 

ends 



! Test the status 

.•Return a "Response status err" code 

S Th i s ret ..status is good or bad 



000000 004167 000000b 



.SriTTL FX.SUP.PROli MODULE DECLARATIONS 
bx.SUP.PROti: : 

JSR R1,$SAVE2 t 



3lo0 



M15 



/RCHB'J 

RF.V B PATCH 00 



000004 

000006 

000012 

000016 

000020 

000024 

000030 

000034 

000042 

000046 

000050 

000054 

000062 

000066 

000072 

000076 

000102 

000110 

000114 

000120 

000126 

000134 

000142 

000146 

000150 

000152 

000156 

000162 

000166 

000172 

000176 

000204 

000210 

000212 

000214 

000220 

000224 

000230 

000234 

000240 

000242 

000246 

000250 

000254 

000256 

000262 

000266 

000270 

0002 ?? 

0002 /6 

000304 

000312 

000316 

000322 

000324 

000 Vt. 

000332 



005/46 

004 76/ 

004767 

010002 

016746 

012746 

004 767 

012760 

012/01 

060001 

1127U 

112/61 

010260 

005060 

005060 

005060 

112760 

105060 

005060 

016760 

016760 

012/60 

012701 

060001 

105011 

105061 

005060 

005060 

005060 

005060 

016760 

012701 

060001 

105011 

105061 

005060 

005060 

005060 

0050t>() 

010216 

004 /6 / 

010001 

02012/ 

001002 

004 767 

016700 

006300 

00*300 

066 700 

052/60 

01 //66 

016600 

012/16 

O1024t. 

010146 

004 /#", / 

022626 



2RCHB0 RC25 DISK FORMATTER 
MODUl E DECLARATIONS 



174516 
174660 

OOOOOOG 

000054 

OOOOOOG 

000050 

000002G 



000001 

000002 

000004G 

000006G 

000010G 

000012G 

000002 

000015G 

0OOO16G 

OOOOOOG 

000002G 

OOOOOOG 

000026U 



OOOOOOG 



000001 



000014G 



000020G 
000022G 
000024G 



000001 

0OOO3OG 

0C0032G 

000034G 

0OO036G 

OOOOOOG 000040G 

0OO042G 



000001 
000044G 
00004 6G 
000050G 
000052G 

174336 

002001 

1 /4502 
OOOOOOG 



OOOOOOG 
10000C 000002 
OOOOOOG 000004 
000004 

006654 



1$ 



176442 



TST 
JSH 
JSR 

MOV 

MOV 

MOV 

JSR 

MOV 

MGV 

ADD 

MOVB 

MOVR 

MOV 

CLR 

CLR 

CL R 

MOVB 

CLRB 

CLR 

MOV 

MOV 

MOV 

MOV 

ADD 

CLRB 

CLRB 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

ADD 

CLRB 

CLRB 

CLR 

CI P 

CLR 

CLR 

MOV 

JSR 

MOV 

CMP 

HNk 

vJSR 

MGV 

ASL 

ASL 

ADD 

BIS 

MUV 

MOV 

MOV 

MGV 

MOV 

JSR 

CMP 



b-App-1984 
H -Jan -1984 



13:46:24 
13:23:12 



SEU 0194 
VAX-11 Bi:ss-16 V3 555 Page 50 

SPIDER$USERS:[NEALE.AZTEC]ZRCHB5.B16;4 (15; 



- ( SP ) 
PC.GET.NSD 



CMDtREF 



6P) 



PC. GET 

R0.R2 

NSD.SLOT, -CSI 

054, (SP) 

PC.BLJMUL 

#50, SND. ENVELOPE (R0) 

#SND.ENVEL0PE*2,R1 

R0.R1 

01.CR1) 

#?,KRn 

R2,SND.ENVEL0PE*4(RO) 

SND. ENVELOPE »6(R0) 

SND.ENVEL0PE*10(R0) 

SND.ENVEL0PEW2CRO) 

#2, SND. ENVELOPE *14(R0) 

SND. ENVELOPE *15(R0) 

SND.ENVEL0PE*16(RO) 

AZFMTR , SND . ENVELOPE *20< Ro ) 

A/FMTR » 2 . SND . ENVELOPE *22( RO ) 

#HDSA, SND. ENVELOPE *24<R0) 

</5ND. ENVELOPE *26.R1 

R0.R1 

(Rl) 

KR1) 

SND.ENVEL0PE+30CR0) 

SND. ENVELOPE +32CR0) 

5N0.ENVEL0PE*34(R0) 

SND, ENVELOPE +36CR0) 

OVSA, SND. ENVELOPE *40(R0) 

#5ND. ENVELOPE. f42,Rl 

R0.R1 

(Rl) 

KR1) 

SND,ENVEL0PE*44(R0) 

SND . ENVELOPE *4M RO ) 

SND. ENVELOPE *50(R0) 

SND. ENVELOPE *52CR0) 

R2 , ( SP ) 

PC,L0AD.0UT$STD.BUF 

HO, Hi 

HI ,#2001 

1$ 

PC .DECODE 

NSO.Sl OT.RO 

RO 

RO 

SEND. RING, RO 

#100000 ,2(R0) 

WRC25.AU0R.4CSP) 

4(5P),R0 

ASP) 

SP) 

SfM 



+ .REF.NUM 



REF.NUM,* 



j REK.NUM.* 

; * JSP.BU tl.OC 
j ESP, HUE SLOC,* 



06*54 
H2. ( 
Rl. ( 



PC.CIU.WA1I 
(5P)*,(SP)* 



♦ .HCJS.RtG 
RC$S. REG, TEMP 

U\ f . Ni'M, * 
j ESP.UUFSLOC.* 



32 1 4 
3215 

3219 



3220 

322 1 
3222 
3226 
322?/ 
3228 
3229 

3230 
3231 
3232 
3238 
3239 
3244 
3245 

324/ 
3248 
3249 
3250 
32-? 1 
3252 
32'60 
326 1 

32*3 
3264 
32*2, 
32*6 
32*7 
32*8 
32/7 



32/9 
32«4 

330.' 



N 1 b 



7RCHHS 




/HCHUr RC.?S DISK UWMATTER 


REV D PATCH 00 


MODULE DECLARATIONS 


000334 


006000 




000336 


10300^ 




000340 


004767 


174420 


000344 


010100 


2$ 


000346 


006300 




0003S0 


006300 




00035c"-' 


016067 


000002G OOOOOOG 


000360 


016000 


000002G 


000364 


00S760 


000016 


000370 


00140 r -> 




00037? 


012700 


000031 


000376 


01006/ 


OOOOOOG 


0004CV 


ooo4o;? 




000404 


016700 


OOOOOOG 3$ 


000410 


062/06 


000006 4$ 


000414 


OO02O7 





ROR 
HCC 
JSR 

MOV 

ASL 

A SI 

MOV 

MOV 

TST 

BKQ 

MOV 

MOV 

BR 

MOV 

ADO 

RT5 



S Apr 1984 13:46:24 
H-Jan-l9o4 13:23:12 



SFQ 019'i 
VAX -11 Bliss 16 V3-S55 Pnge SI 

SPIDER$USERS: [NEALE. AZTEC ]ZRCHBS.B16*4 (15; 



RO 
2$ 
PC, 

Rl. 

RO 

RO 

OUI 

OUT 

16C 

3$ 

031 

RO, 

4$ 

RET 

06, 

PC 



DECODE 
RO 



$STl).BUf- ♦; > (RO),RET.EN$AD 

*5TD.DUF*2CRO),R0 

RO) 

,R0 

RET. STATUS 



j ESP.B'JE$LOC,+ 



SP 



JATUS.RO 



3314 

3319 

33;n 
3203 
3160 



l Routine Sijie: 13% words. Routine Base: AC$CODE ♦ 3420 

; Maximum stack depth per invocation: 9 words 



3326 



r 



RtV H PATCH 



00 



J5^ 
3 3,?a 
3 3 ( '9 
3530 
3351 
33 V 
3333 
3 3 34 
333*1 
3336 
35 3; 
3 5 38 
33 3** 
3 540 
3 34 l 
3*4.' 
3 34 3 
3 344 
334S 
334b 
3 54/ 
334ft 
3 344 
3 3 -,0 
3 3M 
3 3V 
3 3S3 
3 3S4 
5< c > r > 
35S6 

3 3 C > ; 

3 3S8 

3 3S9 
3 560 
.MM 
3 36.' 
3 36 3 
3 3*4 

3 36 b 
3 36* 

336? 
3*68 
3 369 

3 5 /0 

53 n 

3 3.V 

,33/5 
33M 
33 /S 
3 3 ; fo 

3 5;; 

33/tt 

3 3;*# 

3 3 HO 
3 381 
3 38,' 



2RCM60 RCV5 DISK >ORMATTER 
HGOW I DECl ARATION". 

global routine tX l.UC.PRCXi 



b -Apr- 1984 13i46i?4 
11 Jan 1984 15: PS: lc* 

{Executes local program 



St.Q 0196 
VA* U Blia* 16 V3 S r .b Page S? 

SPIDER *USKRbj[NE ALE. A/TEC ]/RCHbb,bl6 } 4 C 16 ; 



functional Oaacription • 

Receipt of this command cautti tha controller to aaarch it* locnl 
madia for tha namtd program, load and execute it. Receipt of a 
succeeaful reeponut by tha hoat means that tha program la anacjt ing 
and the nrvtr la In the active atata. Tht tima out valua for this 
command i« specified in tha oat duat response 

formal ^arftmtttri j 
none 



Impl ic • t Inputs 



Thl» global atorage gets loadad by the rout in* 
' Gat nad' and in it if? atorad tha nent aand ring 
deacriptor »lot »**r* tha port /control I ar should 
ba polling on and tha place to put th»a commands 
command packet , 



Impl ic i t Output* 

non« 

Completion Codaa 
RET STATUS: 



Return atatua paaaaa back to the calling routine 
the «tatu« of tha juot issued command. 



Side hf facta : 

Th« DM machine in ths coitrollar goaa from tha iole state 
active state on return of a successful return packet. 



begin 



to the 



local 

RH NUM. 

f.l.P .BUr'ILOC, 
ft MP j 



!Sto»*ea unique cmq raf numoer 

fStorea outfstanding cmd buffer iocat : on 

•A place to store the read IP regiater data 



! Hafore *e load up tha command pacWst ^jp with all fh!» good information get 
! the nent send descriptor slot and a unicjue command reference number. 



!U*t th« ne^t aand dasc slot 
fdet a unique command ref num 



GET NSO ( )i 

Rf E NUM - Gf T CMOfRf F C )j 

i 

J LJG Port command any* lone ^mn<Uir f!«ld definition' 
< 

SND fNVEl.OPF ( ,NS0 SI 0T , MSu UNliTH) • S/ t.l.Pi 'loud tne m*9»e>Q* •*;.-« 

SN0. ENVELOPE [,NS0 SLOT, CRfcDITS) - ONI i UoeO tna credit s i /• 

SN0. ENVELOPE [.N<jD SLOT, MSG TiPM - 0j !Dafine tr,a mag typ ' Sequent • al ' 

SNO ENVELOPE l.NSD SLOT, CONN ID) - UUP i 'Oafine the connsctio 11) 

i 

! D"P generic command an velooe field definition 

•»N0.,tNVK.0Pt {.NSU..M0T, CM0JREM * .Hh NUh i fl.oad tr-t Command ref number 

SNQ^fcMVtLUPt UNSD. SLUT* CM0.HREF1 • ^tROi Uero the Mi Qr<&r cmd ref num 



C 1 1 



/kchhs 

rev h patch 



00 



35B4 

358S 

338/ 
3386 
3.W* 
3 3^K) 
3V*l 
3 W 
33**3 
33'>4 
334S 
3 3**6 

3 M : 

3 3>>8 
33** 1 * 
3400 
3*01 
340.' 
3403 
3404 
3 4 OS 
3406 
340/ 
34 08 
34 O l * 
34 10 
34 1 1 
34 W> 
34 13 
34 14 
34 IS 
3416 
34 1 ? 
34 18 
34 19 
34 t '0 
34.' 1 

34. V 
34.»3 

34. 1 4 
34.»S 

34/6 
34.* / 

34<>8 
34/9 
34 30 
34 31 
34 3/ 
34 3 3 
34 34 
34 3% 
34 36 
34 3/ 
34 38 
34 39 
1440 



/RCMHO RCi'S DISK M)HMATfER 
MODULE DECLARATIONS 

SNO ENVELOPE [.NSD .SLOT, UN I USED J - ZEROj 

SNO ENVELOPE [ .NSD SLOT, UN HUSEDl - ZERO, 

SNO ENVELOPE (,NSO_SIOT, OPCODE! - OP ELP| 

SNO ENVELOPE [.NSD SLOT, RSVD ] • ZERO i 

SNO ENVELOPE [. NSD. SLOT, MODIFIER! • ZEROj 

t 



S 
li 



Apr 
Jan 



J 

1964 
1984 



13:<6:l»4 VAX -11 BHi* 16 V3 

I3:i'3j 12 SPIDERtUSERSsfNi.ALE 



SFQ 019/ 
!"/jfi Paga 5 

AZTEC ]ZRCHbS,B16}4 (16; 



!Not uaad in DUP t mpl imantat ion 
!Not uaad in DUP i mpl Imantat ion 
!Load th i a commanda op -coda 
!Not uaad fiald 
JDafina mod if iara for thifj cmd 



! Command apacfic cowhand anvalop* fiald definition 



[Program n»m# word 
! Program n&mm word 1 
! Program nama word i? 



SNO ENVELOPE ( .NSD. SLOi , PN 01 « ZEROj 

SNO ENVELOPE [ .N5D..~iL0T. PN I] - ZFROi 

SNO ENVELOPE [.NSD. SLOT, PN ?") - ZEROj 
i 

! Call tha load outstanding command buffar routine 

! and load tnia cowwmd into tha buffar, Tha rtturn 

! from thia routina will point ua to tha buffar location 

! whara thia command ia atorad. t attr wt can loo*< at 

! thia location to **i if tha interrupt aarvica routina 

! haa rmcm'^md and procaaa it. 

ELP.BUHLOC • 10AD.OUTIST0 Bl* (.REE NUH), Hood tha command 

if .E1P W BUML0C aqlu OB*" lODfc* than DECODE Ol Jtrror if bjffcr is full 

i 

! Sat tha Own«r«nio bit to 1 giving thia *lot to thst port 'control lar 

i 

SfNO R1N(> I. NSD SI OT, OWN. BIT J « PORT OWNED} 
i 

! R«ad tha IP r»gistar to atimulata port polling 

i 

.RC?V.*DDR IRCIP, RC Al . ] , 



T!m« out the port /"octroi ) tr procaaainy tha co»»*nand, 



TEMP 

t 

i 
i 

J Tha firat teat taate tha connect !©na ability to 
\ r*9QQr\d to thia command without any trrgn in tha SA 
ragiatar and for tha command not timing o?t, 



Tha aacond taata tha DUP aa»*v«r for good atatua. If 
bad atatu* la aant back than »r> irror coda ia raturr>*d 
to tha calling routina nhara tha routina "da coda' <# I 1 1 
decode *>4 tafce tha eppropriata racovary. Tha tima 
out rout i tie? will loop on dalaying and checking tha hi 
bit of tha tirat word In tha O'jttato hof for a tri*a, 
Whan true aignala ua that the inttrrjpt ne^vica routina 
haa raceivad tha andpocWat and no connection error* 
wure detected. 



if CTU WAIT (30OO, t Wt NUM. .Ei.P HUMl.UC) than DECODE ( 1 j »Ia return ;in error 

i 

• (»at tha r%turr\ enveloc* addf eee from tna outtntd but 
' at thia command* buffar location and check the pne^at 

* for good statu** error a/^d dia if bad atetu* nh<i re,turnad 
i 

R£T.LK»AD * ,UUTiOlO,UUfr I .tLP.UUHlQC. CNV.AOHll ;u«t the. r»*t *n v aor 



) ! 6 



/RCHMS /RCMtlO RC?5 DISK U1RMAITEP 

RhV \\ PATCH 00 MODULE OJ-Cl.ARAT.TONS 



544 1 
344? 

344 5 
5444 
544 5 
544** 

544 / 
544 M 
344 l » 
54 SO 
54 SI 



! Now test for good status 



if .RET E'N*AD I STATU'". 1 nequ /{".HO 
then 

return Rt T STATUS • RSfc^CODE 
else 

return .RET „STAYUSj 

end; 



5 -Apr ~l<Jfl4 13:46:24 
11 -Jari-19H4 13:23:12 



VAX u fu l,y 
SPIDFRJU5FRS 



5F.Q 0198 
16 V'3 555 Pa^e f > 

[NF.Al F.A/TEC]/RCHtt5.B16>4 (16; 



!Test the status 

IReturn a "Rusponsc status prr" code 

! This ret status ■ * good or bad 



000000 004 167 oooooog 



000004 005/46 

000006 0^4 76 7 

0000 12 004/6/ 

000016 01000*' 

OOCKVO 016^46 

0OO0?4 01? /46 

000050 004 76/ 

000054 0UV60 

00004? 01? 701 

000046 060O01 

OOO050 U2/11 

00OO54 U.2/61 

0OOO6? 010260 

000066 0050t>0 

00O0 7? 005060 

0000/6 005060 

000 1C? 11? 760 

0001 10 105060 

000114 005060 

000120 005060 

0001 ?4 005060 

000150 005060 

000154 010?16 

000156 004/*.; 

00014? oioooi 

000144 0?01?/ 

D001 S3 00100, > 

00015? 0O4/6/ 

000156 016/ -O 

00016c 1 0O650O 

000164 006^00 

0O0166 066/00 

000 1/? 052/60 

000200 01 //66 

O00?06 016600 

000? U.' 01? /In 

000?! 6 010?4b 

000220 010146 

000222 004 /6 / 

000??*. O? ?♦.?*. 

000,' 30 006000 



1 /A 100 
17424? 

OOOOOOG 

000054 

OOOOOOG 

000060 OOOOOOG 

0OOO0?G 



000001 



OO0014G 



OOOOOl 

0OOO02 

0OOO04G 

0OOOO6G 

0OOO10G 

0OO012G 

000003 

0O0O15G 

0OC016G 

0OOO?0G 

0OO0??G 

0OO0?4G 

i *40?4 

0O20O1 

1 ,'41/0 
COOOOOCi 



oooooog 

100000 OOOOO? 
OOOOOOG 000004 
000004 
0056 70 



1 /6H0 





.SHMl. 


EX. IOC. PROG MODULI. DEC 


EX.LOC.PROG: : 






JSR 


Rl f ISAVE2 




T y, 


(SP) 




^SR 


PC.GET.NSD 




JSR 


PC»GFT.CHOIRFF 




MOV 


R0.R2 




MOV 


NSD.SLOT, (SP) 




MOV 


«54, (SP) 




JSR 


PC.BLIMUL 




MOV 


*6O,SND.ENVEt.OPE(R0) 




MOV 


• SNO.fcNVF:i.OPF*i?.Rl 




ADO 


R0.R1 




MOVB 


• l t (Rl ) 




MOVB 


♦2 t URD 




MOV 


R2.SN0. ENVELOP! *4;R0) 




Cl.R 


SN0.ENVEL0PF»6CRO) 




CLR 


SND.ENVEL0PE*10(R0) 




CLR 


5N0.ENVELGV* >1?(R0) 




MOVB 


• S,SND.ENVEL.0PF»14(R(n 




CIRB 


SNO. ENVELOPE. 15CR0) 




CLR 


SN0.ENVEL0PE»16(R0) 




CLR 


SNO,ENVElOPE»20(RO) 




CLR 


SNO . ENVELOPE ♦??{ RO ) 




CIR 


5 NO. ENVELOPE. ?4(R0) 




MOV 


R2,(SP) 




JSR 


PC,L0AD.0UT$5TD,HL#" 




HOV 


R0.R1 




CMP 


hi. #2001 




ONE 


IS 




JSR 


PC. DECODE 


19: 


MOV 


USi\Sl OT.RO 




ASl 


HO 




ASl 


Ru 




AOD 


St NO.RING.RO 




BIS 


*100000.2(RO) 




MOV 


a«C25. ADDR,4lSP} 




MOV 


4(SP),R0 




MOV 


056/O.rjP) 




MOV 


R?, (SP) 




MOV 


R 1 , ( SP ) 




JSR 


PC.cro.KAi r 




CMP 


r»p)»,cspw 




RUR 


RO 



l 

i *,re:f,num 



j WEE, NUM.* 



j RE> .NUM.* 

t • ,ri P. HI* $i OC 
I ELP.BUMl.OC* 



* .RCSS.HEl. 
RCIS.REG.TE'MP 

MM N"M,» 
ElP.BUf $1 OC,* 



5 32<* 

3 3/0 

33n 
3375 



3 3 76 

3 5 / '* 
33 78 
3 58? 
33*3 

3384 

3 365 
3 386 
3 58 ' 
3 3P* 
3 3 9? 
3 595 
3 5*»4 
3403 



3405 

34 10 

34 14 
34 33 



11 .6 



/RCHUS 

REV R PATCH 



00 



0/5/ 
jOO/54 
000/ A 
000/4/ 
000/44 
000/46 
000/S4 
000/60 
000/64 
000/66 
000/ // 
000/ 76 
000 M>0 
1*00504 
000 5:0 



10500/ 

004 /* / 

010100 
006500 
OOMOO 
01606 7 
016000 
OOS '60 
00140b 
01/700 
01006/ 
00040/ 
016/00 
06/ /06 
000/0 7 



j Rout I ne ') ! z* : 
i Maximum stacW 



/HCHWO RC/S DISK HWMATTER 
MODU F DECLARATIONS 



174106 



ooooo/i; oooooog 

ooooo/i; 

000016 

000051 

OOOOOOG 

OOOOOOG 
000006 



101 words, Routine Bait: ACJCUDE * 
depth per invocations 9 words 



ER 




VApr-19B4 15i46j/4 
It -Jan- 1964 l*i£3:12 




HCC 


/* 




j:;r 


PC.Df CODE 


/*: 


MOV 


Rl.HO 




ASl 


RO 




ASl 


RO 




MUV 


OUTISTD.BUf »/CR0),Re r.ENJAD 




MOV 


UUT$STD.BUF»i?(RO),RO 




TST 


16CR0") 




BEQ 


5* 




MOV 


•3i.R0 




MOV 


RO.RET. STATUS 




tlR 


41 


5>; 


MOV 


RET. STATUS, RO 


4$: 


ADD 


•6 , SM 




RTS 


PC 



SF.Q 0199 
VAX 11 fill*** 16 V5 SS5 Page S 1 

SPIDER *USERS; I NEAlt. AZTEC ]ZRCHB5,B16j4 C 16 j 



j ELP.BUf SLOC,* 



5440 
3445 

5 5 r >9 
332 7 



4036 



34 W 



\h 



/HCHH'.i 

Rt.V I) PATCH 



00 



34 S3 
3454 
34 f >S 
44S6 

"34S/ 
34SB 
34 V» 
3460 
3461 
346J 
3463 
3464 
346 r » 
34 e. 6 
34 6/ 
34 6H 
3469 
34 /0 
34/1 
34 //' 
34/^ 
34/4 
34 /S 
34 /6 
34 / / 
3<t /8 
34 /*# 
3480 
34 81 
348. 1 
34 8 5 
3484 
348S 
MH*> 
348/ 
34 88 
3489 
3490 
34 'U 
34 l V 
34 93 
3494 
34 9S 

34 'Hi 

34 9/ 

3498 

3499 

3«,00 

3«>0t 

Vi(V 

3 SO 3 

3S04 

3 SOS 

3S0 

3S0/ 

3S0H 

3S09 



ZRCHttO RCJS DISK HWMATTr.R 
MODULE DECLARATIONS 

global routine SEND, DATA ■ 



S Apr 1984 13;46;r ) 4 
11 Jan -1984 13:23:12 



jHQ 0200 
VAX 11 Bliss U, V3-5S5 Psg« 56 

SPIDLR$USLRS:(NfcALE.A/TFXlZRCHB5.B16{4 (17) 



{Performs host-->port communications 



Kunctiont»l Description : 

These commands are used to communicate between tKa initiating host 
program and the remote program. Both send arsj raceive commands 
specify a host buffer descriptor and a byte count. In the case of 
send data, the information in the buffer is read by the remote program 
and a send data response sent back to the host to acknowledge receipt 
In the case of receive data the remote program writes data into the 
buffer up to the amount specified by the byte count »nd then sends a 
receive data response to the Host to notify It of the transmission. 



The send data and receive 
server is in th« active 
abnormally, putting the se 
send data and receive dat 
the specified timeout inte 
issue a gel dust staus 
still running (Is, the 
progress indicator should 
should be re installed. I 
response and a second ge 
having made no progress 
considered broken and should 

formal Parameters ; 
none 



data commands are only legal when the 

state. If the remote program terminates 
rv^r back In the idle stae, outstanding 
a commands may be lost. In the event that 
rval is exceeded, the host program should 

command to see if the remote program is 
dup server is active)) if it is, the 

be remembered and the timeout interval 
f the second timeout e- pi res without a 
t dust status show«i the remote program 

in the interim then the program should be 

be aborted. 



Impl ic I t Ir>uts ; 
NSD_SLQT 



This global storage gets loaded by the routine 
'Get^nsd' and in it Is stored the ne*t send ring 
descriptor slot where the port /controller should 
be polling on and the place to put this commands 
command packet , 



Implicit Outputs 
none 

Complet ion Codes 
m-T STATUS: 



Side Effects ; 
none 



begi n 

local 

MM NUM. 
Si:0 HUFfi.QC, 



Return status passes back to the calling routine 
the status of the just issued command. 



sto~es unique end r«l number 

Store** out f *it aridi ng cmd buffer locat 'on 

A place to put read IP register data 



! Her ore we load up the command packet up with all this good information 
! g^t the next send descriptor slot and a unique command reference number. 



?HCHH'j 



REV B PATCH 00 



SMO 
SMI 

sr.ii? 

SSI'. 
SSI ft 

SS1H 
3S1<* 
3S.H) 
3VI 

3V3 

3V4 

3V6 

3S t J / 
3S.»H 

3*_n"# 
3S30 
3SM 

sr».v 

3 r -34 
SS3/ 

3mh 

:*.*>4o 
;v>4i 

»!>4^ 

3S44 
SS4S 
V>4f. 

;v,4 / 

3S4tt 
V>49 

,3V»0 
SVU 

;*.v>3 

V>S4 
3SV> 

V,S / 

;v.v* 

V»60 

?.s#.\ 
3ii60 



lj'l.b 



ZRCHBO RC'S DISK (■ URMATTER 
MODULE DECLARATIONS 



SApr 1964 13:46:^4 
11 -Jan-- 1984 13:23-12 



seu 0201 

VAX 11 Bliss U', V'. SS5 Paa« 5/ 

SPIDER *USERS{[NEAl.E.A£ TEC VRCHB5,B16;4 (17; 



Gt: t 

REF 



NUM 



( )t 

- GET 



CMD$REF ( )j 



•Get the next send desc slot 
!Get a unique command ref num 



* VQ Port command envelope Header field definition 
SNO 



SNO 
t;km 



i 

! DUP 

i 



CNVEL.0PF 

ENVELOPE 
ENVELOPE 
ENVELOPE 



OT, 



:i 



[ .NSD 
T . NSD 
[ .NSD .SLOI , 

[ .NSD .SLOT. 



LOT, 



M5G LENGTH] - SZ 
CREDITS] - ONE j 
MSG TYPE] • Oj 
CONN. ID] - DUP* 



SED 



/e 



ILoad the message 
ILoad *;he credit s i jnt 

!Defin»> the messao* tvP 'Sequential 
•Dtsfine the connection ID 



generic command envelope field definition 



SNO 
SNO 
SNO 
SNO 
SNO 
SNO 
SNO 

i 
i 



ENVELOPE 
ENVELOPE 
ENVEL OPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 



[ .NSD. SLOT, 
[ ,NSD SLOT, 
f .NSD SLOT, 
[ .NSD SLOT, 
[ .NSD SLOT. 
I .NS0..SL0I, 
[ .NSD_SL0T, 



CMO LREF) 

CMO HREF] 

UN LUSFD] 

UN HUSED] 

OPCODE ] - 

RSVD) - /EROi 

MODIFIER] • ZERO, 



,REF_NUM, 
ZERO; 
ZERO, 
ZERO, 



0P_SEDj 



: oad command reference number 
IZtro Hi order cmd ref number 
!Not used in DUP implementation 
!Not used in DUP impl imentot i on 
{Load this commands cp code 
INot u»ed field 
! Define the commands modi Fi era 



Command spvecfie command envelope field definition 



SNO 

SNO 
i 



Byte count of transfer 



ENVELOPE I.NSD3L0T, Bl.O CNT ] 
ENVELOPE [.NSD. SLOT, BhI.CNTj 



- SNOB sm 



♦Byte count low word 



ZERO; !Uyte count high word 



! Buffer descriptor definition 



SNO 
SNO 
SNO 
SNO 
SNO 
SKO 
SNO 
SNO 



ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 



I 



( 



NSD. SLOT, BPrt 10] • SNO BuV 

NSD SLOT, BPA HI] - ZERO, 

NSD SLOT, Q6US EXT] - ZERO, 

NSD SL OT, RSV] - ZfrROi 

NSD SLOT, U6A CHAN] « ZERO} 

NSD SLOI . RSVO] - ZERO, 

NSD SLUT. RSVD • ZERO, 

NSD3L0T. RSV2) • ZEROj 

NSD SLOT. RSV3) - ZERO, 



IBuffer physical adrs 
! Buffer physical adrs 
! CI bus extent !on adrs 

^Reserved field 

J Unibus Adaptor channel 

J These ne^t four words 



*0 Vj- 

bits <16 



number 
are not 



17 > 



used in the UQ Port implementation 



! Call the load outlstandlng command buffer routine and load this command 

J into the buffer. The return from this routine will point us to the buffer location 

! where this command is stored. I . ter we can loo** at this location to 

! see if the interrupt service routine has received and process it, 

SND..BUML OC - L OAD _ OUT iSTD HI* (.RtF NUM)j M oad the command 

if ,r>N0_BOV$L0C eqlu DBF CODE then DECODE I), 'Error if buffer • •* FuU 

! Set the ownership bit to 1 giving this slot to th< port/contrgli^r 

i 

St NO RINtj (.NSD SLOI. UWN BIT] - PORT OWNED: 
i 

! Read the IP register to stimulate port polling 

* 

TEMP - ♦RCi^ADUR IRC IP* RC.ALLh 



/RCHH!> 

RLV El PATCH 00 



3So8 
3S*VJ 

3s /o 
31) /i 

31W5 
3s /4 
ss/s 

3S/t> 

ss ; ." 

3'i /H 
3S/W 
3S80 
3S81 

:v>8t» 

3SH3 

3S84 

3S8S 
3S8t> 
S58? 
3S88 
3'j8^ 
$S'*0 
SVU 
3S*V 
3S**3 
3V>4 
3V»*i 
3VWi 
3S9 7 
3V»H 
3V* ( » 
3h00 
3601 
3hO.» 
3h03 
3tu>4 
3t>OS 
3*0fc 
3hO / 
3*. OH 
5t»0'» 
3M0 
3*> 1 I 
3M«> 
3«.H 
V.14 

3h 1 1> 
3h 1 / 
3f . 1 H 
3*i r# 
V>,'0 
3*..' I 
3*>.V 
36 f ?3 



/RCHHO RC.'S DISK KJHMATTER 
MODULI. DECLARATIONS 



h 



:» Apr 1^84 13;4ti;«'4 
ll-Jan-1«r*4 13 i 23! 12 



VAX 11 rtli«;s 1'- V'» SV) 



SFQ ( °0r J 

Page 'JO 



SPIDfcR*USfcRS:lNC-ALfc.AirTF.C]ZRCMBS.B16;4 (17; 



Time out the port /controller for the resoonse from thia command 

IF the controller times out then: 

1, See what kind of error was returned. If the error 
is a type other than a CK)_C00r (controller t-me out) 
then ..all routine Decode which does the appropriate 
action baser' on the error. 

2. If the returned error is an CTO .CODf. then do a get 
dust status 9Csd check the progress indicator to look 
for an increase, indicating that the remote program is 
still running and is not dead. 

If the indicator hasn't changed then assume that the 
remote program is d^nd and return an error code of 
RPD. CODf' (remote program dead code) w\d exit. 

If the indicator has changed then assume that the 
remote program is still running, save a copy of • ts 
value and reinstate the controller time out delay and 
repeat the loop. 

As long as the progress indicator in the remote program 
is still increasing this loop will be repeated for ever. 

If the controller doesn't time then return with the return 
code returned from routine CTO. WAIT (J which could be either 
a success or error code by definition of this host code. 



while TRUV do 
begin 
BRt-AKj 



{Repeat for ever 
!f lag control C s 



! Oo a controller time out and determine • t the controller 
J has processed the command or if a fatal error has oc cured. 



if CTO WAIT (4000, .Rfcr\.NUM, . SNO BUML0C) 
then 

begin 



! Is return an error 



If the return status code eql's a CIO COOt then see if the remote 
program is still rvjnning. If it is then save the progress indicator 
and repeat the loop else call routine Oecode ( ), 



♦ .MM STATUS eqlu CTO .COOT, 
then 

begin 



!Is this a controller time out 



J ." OFT DUST MATHS ( > then Dl COD* ('h 



if .RITJ-NSAD I PI INO) gtru .PID SAW 10] 
then 



H.et the dust status 

;Any progress been mad* 



/RCHH'j 

REV B PATCH 00 



56.>4 
56^S 
56 t ?6 
5b t > .' 

**>;?« 
56^ 

5650 
5b 5 1 
565^ 
5655 
5654 
5b 5S 
5b 5b 
5b 5/ 
5b 58 
5b 5 4 
SMO 
564 1 
564 1 > 
564 5 
5644 
564% 

5 646 
564 / 
5648 
5b4 l * 
5bVJ 
5b M 

5b S 5 
5bS4 
5b*>S 
56 Sb 
5bS / 
56 S 8 
5bS4 
5660 
5bbl 
5bt>,» 
5bb3 
5664 
5bbS 
5bbb 
5bb / 
5bbH 
566M 
5b to 
5b / i 
5b /.» 
5b M 
5b /4 
567!i 



1 1 ( 



/RCHHO RC*?5 DISK UJRMATTER 
MODULE DECLARATIONS 



r ) Apr 19R4 15:46: <f4 
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VAX 11 HI ins -16 V5 c .iSS 
SPIDER$USERS:[NEALE.A/TEC]/RCHB5 



Sf.Q 0?05 
B16}4 (17; 



else 



beg i n 

PIO SAVE [0] - .Ht: ENIAD (PLO INOlj 

PIO SAVE 11] - .HI. 1 ENIAD ^p HI IN0 ] , 

PRINTS CPIDJMT, .P1D.SAVE 11], .PID..SAVE [ODi 

end 



! St I 11 running st.ve Ptd 



if .RET ENIAD [PHI..IND] gtru .Pit) SAVE [I] 
then 

begin 

PID SAVE [0] - .RET .ENIAD fPLO INO ) j 



else 



•Still running save Pid 
PID SAVE (1) • .RET eNIAD (PHI INO J ; 
PRINTB (PID/MT, .PID. SAVE ll] # .PID SAVE [0]) { 

return RET„STATUS - RPD„CODEj !No progress so flag error 



end 



els< 



The return status code was not a controller time out code so something 
else is wrong. Coll the routine Decode C) to find out what went wrong. 



DECODE ( ) 



else 



end 



begin 

The command has been received by the interrupt service. 

(iet this commands return envelope address out ot the 
out*std buf arid cbec* for good return status error and 
die it bad status. 



RET ENIAD • .Oi'MSTOBUE [ . SND_BU* r HOC, ENV_AOR)i 
Test for good status 



!Get the ret env adr 



if .RET F.N I AD t STATUS] ntqu /LRU 
then 

return RET STATU 1 ; • R5E.C00E 
else 

return .RET„STATUSj 

end; 



•Test the status 

! Re turn a "Response Status err' code 

JThis ret_status is good or bad 



end; 

return .RET ..STATUSj 
end; 



!lt won't compile without th I s t\ere 



000000 00416/ 000000b 



. SHTTl. SEND. DAI A MUUW E DECLARATIONS 
SEND. DATA; : 

JSR R1.SSAVE5 



54 S 5 



JU 



) 



7RCH85 

REV B PATCH 00 



000004 
000006 
000012 
000016 
000020 
000024 
0000 JO 
0000J4 
000042 
000046 
000050 
000054 
00006? 
000066 
00007? 
000076 
000102 

ooouo 

000114 
000120 
000126 
000 1 3? 
000140 
000144 
000146 
000 A SO 
0001'54 
000160 
000164 
000170 
000174 
000176 
000202 
000204 
000210 
00021? 
000216 
000222 
000224 
000226 
0002 52 
000240 
000246 
000252 
000254 
000260 
000262 
000264 
0002/0 
0002/2 
0002/4 
0002 /6 
000 SO 4 
000 306 
000312 
000 M 4 
00031b 



005/46 

004 767 

004 76/ 

010003 

016746 

012746 

004/67 

012760 

012701 

060001 

112711 

112/61 

010360 

005060 

005060 

005060 

112/60 

105060 

005060 

012/60 

005060 

012/60 

012/01 

060001 

105011 

105061 

005060 

005060 

005060 

005060 

010316 

004 /6 / 

010002 

0202? / 

001002 

004 76/ 

016 700 

006300 

006300 

066/00 

052 /60 

01/766 

016600 

104422 

012/16 

010346 

010246 

004/6/ 

022626 

006000 

1030/4 

026 /? / 

001065 

00<* /6 / 

006000 

10*00? 

004 767 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



173566 
173730 

OOOOOOG 

000054 

OOOOOOG 

000034 
000002G 



5 -Apt 



11 



1984 
Jan-19«4 



OOOOOOG 
000001 

000014G 

000020G 
000024G 



000001 

000002 

000004 G 

000006G 

000010G 

000012G 

000004 

0000 15G 

0000 16G 

00CO45 

000022G 

OOOOOOG 

000026C; 



000001 
0000 SOG 

000032G 
0000 34 G 
0000 36G 

1/345? 

002001 

1/3616 
OOOOOOG 



OOOOOOG 
100000 000002 
OOOOOOG 000004 
000004 

007640 



175554 

OOOOOOG 000011 
X 76240 

173512 



X* 



21 



TST 
JSR 

JSR 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

ADD 

MOVD 

MOVB 

MOV 

CLR 

CLR 

CLR 

MOVB 

cum 

CLR 

MOV 

CLR 

MOV 

MOV 

ADD 

CLRB 

CL.RB 

CLR 

CLR 

CI R 

CLR 

MGV 

JSR 

MOV 

CMP 

BNF 

JSR 

MOV 

ASL 

ASL 

ADD 

HIS 

MOV 

MOV 

TRAP 

MOV 

MUV 

MOV 

JSR 

CMP 

ROR 

BCC 

CMP 

bne 

JSR 
ROR 
BCC 
JSR 



13:46:24 
13:23;12 



5EQ 0204 
VAX 11 Bliss -16 V3 555 Page 60 

SPIDER *USERS:[NHALE. AZTEC ]ZRCHB5,Bl6j4 (17) 



• ( SP ) 

PC.GFT.NSD 
PC.GET.CMDiREF 
R0.R3 

NSD.SLOT, (SP) 
054, (SP) 
PC.SLIMUL 

O34.SND.ENVEL0PECR0) 
OSN0.ENVEL0PE*2,Rl 
R0.R1 

n.(Ri) 

<2,1(R1) 

F 3, SND. ENVELOPE *4(R0) 

SNO.ENVELOPE*6(nO) 

SND,ENVEL0PE»10(R0) 

SN0.ENVEL0PE*12(R0) 

04 , SNO . ENVELOPE f 14( «0 ) 

SND.ENVEL0PE*15(R0) 

SN0.ENVEL0PE*16(R0) 

045 , SNO . ENVELOPE *20( RO ) 

SNO.ENVEL0PE*22(RO) 

OSNO.BUT.SND.FNVFl 0PE*24(RO) 

OSNO, ENVELOPE *26,R1 

R0.R1 

(Rl) 

KR1) 

SNO, ENVELOPE »30(R0) 

SNO. ENVELOPE *3?(R0) 

SNO.ENVEl 0PE*34(R0) 

SN0.ENVEL0PE*36(R0) 

R3 " n % 

pc!load.qut$std»buf 

R0.R2 

R2, 02001 
IS 

PC.DFCODF 

NSD.SLOT.RO 
RO 
RO 

SLNO.RING.RO 
100000. 2 (RO) 
aRC25.ADDR.4CSP) 
4CSP),R0 
2? 

0/640, t !>P) 
R3. (SP) 
H2, (SP) 
PC.CT0.WA1T 
CSP)»,(SP)» 
MO 
8$ 

RE T.STAT US ,011 
7t 

PC.UET.UUST.SlAtUS 
RO 

PC, DECODE 



♦.REE.NUM 



REF.NUM.+ 



REK.NUM,* 

♦ .SND.BU $1 OC 
SND.BUEJLOC,* 



*,RC*S.RFG 
RCSS.RFG.TEMP 



RM .NUM.* 

SNO.HUE$LOC»* 



3511 
3512 

3516 



3517 

3 5 in 
351) 
35," 3 

35r4 

3525 
3526 
352/ 

3528 
3529 
3535 
3536 
3540 
3541 

3543 
3544 

354 5 
3546 
354,' 
3548 
3555 



355 7 



3562 



3 r >66 

?fiO0 

^607 



5b20 



K'1.6 



7RCHBS 

REV B PATCH 00 



0003?? 
000326 
0005 30 
000334 
000540 
00034,* 
000346 
000 3S4 
0003S6 
00036? 
000566 
00037? 
000374 
0003/6 
000400 
000406 
000410 
000414 
0004?? 
0004 ?4 
0004 30 
0004 34 
000440 
00044? 
000444 
0004 50 
0004 S? 
0004 Sn 
000460 
000464 
000466 
0004 /O 
0004 /? 
0004 /4 

oooso? 

000S06 
OOOM? 
O00M4 

ooospo 

000* >?4 
000S26 
000? > 3? 
000' > 56 



016 701 
010100 
016000 
020067 
101417 
010067 
016167 
010016 
016/46 
012746 
012 746 
010600 
104414 
000422 
02616/ 
101421 
010067 
016167 
010016 
016/46 
012746 
012746 
010600 
104414 
062 706 
000/00 
012/00 
000420 

004 76 1 
00O6 /? 
010200 
O063')0 
006 500 
01606/ 
016000 

005 /60 
0014 O c > 
01? /OO 
OlOOti/ 
00040? 
016/00 
062 /06 
00020 / 



ZRCH30 RC25 DISK FORMATTER 
MODULE DECLARATIONS 



oooooot; 

000024 
OOOOOOG 

OOOOOOG 

000026 000002G 

000002G 
OOOOOOG 
000003 



000026 000002G 

OOOOOOG 

000026 000002(i 

0OO002G 
OOOOOOG 
000003 



000006 
0O00S1 
173350 



000002G OOOOOOG 

000002G 

000016 

000031 
00000(XJ 

OOOOOOG 
000006 



3$ j 



4$j 



5$ 
6 J 
74 
8$ 



9$: 

105 
11$ 



5 Apr 1984 13:46:24 
11 Jon -1904 13:23:12 

MOV RET.EN$AD,R1 

MOV Rl.RO 

MOV 24(RO),R0 

CMP RO.PID.SAVE 

BLOS 4$ 

MOV RO.PID.SAVE 

MOV 26(R.l),PID.SAVb>2 

MOV RO.CSP) 

MOV PID.SAVE*2, (SP) 

MOV *PID.EMT. -(SP) 

MOV 01 1 (SP) 

MOV SP.RO 

TRAP 14 

BR 5$ 

CMP 26(R1),PID.SAVE*2 

BLOS 6$ 

MOV RO.PID.SAVE 

MOV 26CR1),PID.SAVE*2 

MOV RO.(SP) 

MOV PID.SAVE*2, (SP) 

MOV *PID.KMT,-CSP) 

MOV 05, (SP) 

MOV SP.RO 

TRAP 14 

ADD 46, SP 

BR 2$ 

MOV «M,R0 

BR 9$ 

jsr pc.decode: 

BR 2$ 

MOV R?,RO 

ASl RO 

ASL RO 

MOV OUTlSlO.HUf »2( RO ), RE T.EN* AD 

MOV OUT »ST().BUf-'»2(R0),R0 

TS! lb(RO) 

BtQ 10$ 

MOV 031, RO 

MOV HO.Rfcl .SIAf'US 

BR 11$ 

MOV Rf T .STATUS, RO 

ADD «6 , SP 

RTS PC 



SEO 020b 
VAX-11 Bliss-16 V3-555 Poge 61 

SPIDER IUSF.RStCNF.ALE. A/tec ]ZRCHB5.B16;4 (17) 



j RET,EN$AD,* 



I PID.SAVb,* 



; SP,* 



j PID.SAVE.+ 



J 5P,» 



; SND.BUFSLOC,* 



3626 
3622 



362S 

3626 
3627 



3624 
3631 

3634 

363S 
3636 



3653 
3631 
3M9 

364 / 
3oO ; 
3659 



3664 
3ti66 

34 l 53 



Rout i nc Si /* : 
Maximum <it«cl< 



176 words, Routine Base: AC f CODE ♦ 4 5^0 
depth per invocation; 12 wordy 



3676 



1.1.6 



7RCHB5 

m:v B PATCH 



00 



3ft 7 7 

3678 
3679 

3680 
3681 
368? 
3663 
3684 
368S 
3686 
3687 
3688 
3689 

36 ( ; > 

36S1 
369, > 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3/0? 
3/03 
3 /04 
3 /0 f j 
3 706 
3707 
3 /OH 
3709 
3/10 
3711 
371? 
3713 
3/14 
3/1S 
3/16 
3/17 
3/18 
3/19 
3/?0 
3/?l 

3 n>? 

3/?3 
3 /?4 
3/? r ) 
3/?ft 
3/?/ 
37?8 
3/?9 
3 / ^0 
3/M 
3/3? 
3733 



ZRCHHO RC?5 DISK FORMATTER 
MODULE DECLARATIONS 

global routine REC.DATA * 



5 -Apr -1.984 13:46:24 
11 -Jan -1984 13:23:12 



SEQ 0?06 
VAX -11 Bliss- 16 V3-555 Page 6? 

SPIDER$USF.RS:[NEALE.A£TEC]ZRCHB5.B16{4 (18) 



J Performs host-->port communications 



Functional Description : 

These ?ommands are used to communicate between the initiating host 
program and the remote program. Both send and receive commands 
specify a host buffer descriptor and a byte count. In the case of 
send data, the information in the buffer is read by the remote program 
and a send data response sent back to the host to acknowledge receipt 
In the case of receive data the remote program writes data into the 
buffer up to the amount specified by the byte count and then sends a 
receive data response to the host to notify it of the transmission. 

The send data and receive data commands are only legal when the 
server is in the active state. If the remote program terminates 
abnormally, putting the server back in the idle stae, outstanding 
send data and receive data commands may be lost. In the event that 
the specified timeout interval is exceeded, the host program should 
issue a get dust staus command to see if the remote program is 
still running (is. the dup server is active)} if It is, the 
progress indicator should be remembered and the timeout interval 
should be re- installed. If the second timeout expires without a 
response and a second get dust status 'ihows the re.no te program 
having made no progress in the Interim then the program should be 
considered broken and should be aborted. 

Formal Parameters : 
none 



"mplicit Inputs 
NSD„SL0T 



This global storage gets loaded by the routine 
* Get.nsd' and in it is stored the next send ring 
descriptor slot where the port /control ler should 
be polling on and the place to put this commands 
command packet. 



inpl ic i t Outputs 
none 

Completion Codes 
RET„STATUS 



Side Effects : 
none 



beg I n 

local 

REf- NUM. 

RLC .BUf'*l.UC, 

TEMP j 



Return status passes back to the calling routine 
the status of the just issued command. 



Stores unique cmd ref number 

Stores out$standing cmd buffer location 

A place to put read IP register data 



! Elef ore we load up the command packet up with all this good information 
! get the next send descriptor slot and a unique command reference number. 



ZHCHU5 

rev B PATCH 00 



3734 

373b 

3736 

3737 

3738 

3739 

3/40 

3741 

374<> 

3/43 

3 744 

3745 

3746 

374/ 

3748 

3749 

3 /50 

3751 

375? 

3753 

3754 

3755 

3/56 

3/57 

3/5H 

3759 

3 760 

3/61 

3 /6<_> 

3763 

3 764 

3/65 

3766 

3767 

3768 

3 /fw 

3 7/0 

3 H\ 

3 / l t > 

3//3 

3//4 

3 7/5 

3//6 

3 / / / 

37/8 

3 ,' /9 

3/80 

3781 

3/8? 

3/83 

3/84 

3 /85 

378o 

3 78/ 

3/88 

3/8^ 

3790 



ZRCHB0 RC?5 DISK FORMATTER 
MODULE DECLARATIONS 



Ml 6 

5 Apr 1984 13 j 46 2 24 
HJan-1984 13:23:12 



SF.Q 0?0 7 
VAX- 11 Bliss -16 V3-555 P©ge 63 

SPIDER$USERS:[NF.ALE.AZTEC]ZRCHB5.B16;4 (18) 



GET_NSD 
REr .MUM 



(){ 

- GET 



CMDJREF (); 



.'Get the next send desc slot 
J Get a unique command ref num 



! UQ Port command envelope Header field defi ution 



SND ENVELOPE 
SNO^ENVELOPE 
SND_ENVELOPE 
SND ..ENVELOPE 



[ .NSD^SLOT, 
[ .NSD SLOT, 
I .NSD_5L0T. 
[ .NSD..SLOT, 



MSG_LENGTH] - SZ..REI'M !Lood message length 
CREDITS] - ONE; 'Load credit si^e 

MSG.TYPE] * Oj !Define message type 'Sequential' 
C0NN„ID] • DUP} 'Define connection ID 



DUP generic command envelope field definition 



SND ..ENVELOPE [ 

SND ..ENVELOPE [ 

5ND_ENVEL0PF [ 

SND ^ENVELOPE [ 

SND_ENVELOPE [ 

SND_ENVELOPE [ 

SND ENVELOPE [ 



NSD„SLOT, CMD„LREF] - .REr'.NUMi 



NSD SLOT, CMD HREF] - ZERO} 

N5D_SL0T, UN LUSCD] - ZERO; 

NSD SLOT, UN HUSED] ■ ZERO} 

NSD SLOT, OPCODE] - OP RED; 

NSD.SLOT, RSVD] - ZERO; 

NSD. SLOT, MODIFIER] - ZERO} 



•Load command reference number 



♦Zero HI order cmd ref num 

!Not used in DUP i mpl imentat 1 on 

•Not used in DUP I mpl I mentat Ion 

ILoad this commands op-code 

!Not used field 

! De f I ne this commands mod i f 



iers 



! Command specfic command envelope field definition 
1 

! Byte count of transfer 



SND^ENVELOPE [,NSD SLOT, BLO CNT] 

SND ENVELOPE [.NSD. SLOT, BHT CNT] 
1 

! Buffer descriptor definition 

t 

SND 
SND 



RECB.S1ZL; !Byte count low word 
ZERO; 5Byte count high word 



ENVELOPE 
ENVELOPE 
SNO .ENVELOPE 
SND ENVELOPE 
SND .ENVELOPE 
SND ENVELOPE 
SND_ENVELOPE 
SND_ENVELOPE 
SND ENVELOPE 



r 



r 



.NSD_SL0T, 
.NSD ..SLOT, 
.NSD SLOT, 
.NS0_SL0T , 
.NSD^SLOI , 
.NSD SLOT, 
.NSD SLOT, 
.NSD SLOT, 
.NSD SLOT, 



BPA LO] - REC BUT 
BPA_HI] - ZERO j 
Q6US..EXT] • ZERO} 
RSV] • ZERO; 
UBA .CHAN] * ZERO 
RSVO] - ZERO 
RSVl] - ZERO 
RSV?] - ZERO 
RSV3] - ZERO 



How un i bus adrs <0 1S> 

! Un i bus adrs bits < 16 ■ 1 7 > 

JU.bus extent ion adrs 

•Reserved field 

• Un i bus adaptor channel nunber 

! These next four words are not 

.'used in the UQ Port implementation 



Call the load outistanding command buffer routine and load tnis command 
Into the buffer. The return from this routine will point us to the 

buffer location where this command is stored. I ater we can look at this 
location to see If the Interrupt service routine has received and process 
i t. 

RECJHiFiLOC « LOAD.OUTiSTD BUT C.REF.NUM)} 'Load the command 

if .HfcC.BUMEOC eqlu OBK .CODE then Dr.COOE C) { 'Error if buffer Is full 

! Set the ownership bit to I giving this slot to the portZcontrollsr, 

i'.r.NO mini; [ .nsd si di , own. bit] * port owned } 

i Read the IP register to stimulate port polling 



ZRCHB 1 

ZRCHB1 
ZRCHB 1 
ZRCHB t 
ZRCHB 1 
ZRCHB1 
ZRCHB1 
ZRCHB1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 



/RCHB1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHB 1 
ZRCHBl 
ZRCHB 1 



ZRCHB 1 
ZRCHB 1 
ZRCHB! 

ZRCHBi 

z:.\:hbi 

ZkCHBI 
/RCHB1 

ZRCHBI 
ZRCHB 1 
ZRCHBI 
ZRCHBI 
ZRCHBI 
ZRCHBI 



ZRCHBI 
ZRCHB1 
ZRCHBI 
ZRCHB1 
ZRCHBI 
ZRCHBP 
ZRCHBP 
ZRCHBP 
ZRCHB? 
ZRCHBP 
ZRCHBP 
ZRCHBP 
ZRCHB2 



ZRCH. . . 


.HI 


ZRCH, . , 


.CI 


ZRCH... 


.Dl 


ZRCH. , , 


, Fl 


ZRCH. . 


.F 1 


ZRCH. . . 


.Gl 


ZRCH. , 


.Hi 


ZRCH. .. 


.11 


ZRCH. ., 


,J1 


ZRCH... 


.Kl 


ZRCH. ., 


,11 


ZRCH. . , 


.Ml 


ZRCH.. 


.Nl 


ZPOH. . 


.B2 


ZRCH. . 


,C2 


ZRCH, . 


.02 


ZRCH. . 


.E2 


ZRCH. . 


,F2 


ZRCH, , 


,G2 


ZRCH, . 


.H2 


ZRCH. . 


.IP 


ZRCH. . 


.Jc 


Z-hCi I. . 


J<2 


ZRCH . 


P-2 


ZRCH. . 


,M2 


ZSCH., 


,N2 


ZRCH. . 


.83 


ZRCH. . 


.C3 


ZRCH. . 


.03 


ZRCH, . 


,E3 


ZRCH. . 


.F3 


ZRCH. . 


,G3 


ZRCH. . 


.H*. 


ZRCH, . 


. LA 


ZRCH, , 


,J3 


ZRCH. . 


.K3 


ZRCH 


1 3 


ZRCH, . 


,M3 


ZRCH. . 


.N3 


ZRCH. . 


. .B4 


ZRCH. . 


.C4 


ZRCH. , 


. .04 


ZRCH. . 


. .E4 


ZRCH. . 


. . F4 


ZRCH. . 


. , G4 


ZRCH. . 


. .HI 


ZRCH. . 


. .14 


ZRCH. . 


. . J4 


ZRCH.. 


. .K4 


ZRCH 


t 4 


ZRCH. . 


. .M4 


ZRCH.. 


. .N4 



ZRCHBP 
ZRCHBP 
ZRCHBP 
ZRCHB2 
ZRCHBP 
ZRCHB2 
ZRCHBP 
/RCHB2 
Zi!CHB2 
ZRCHB2 
ZRCHB2 
ZRCHB? 
ZRCHBP 



ZRCHB2 
ZRCHB2 
ZRCHBP 
ZRLHB2 
ZRCHB 2 
ZRCH62 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHB2 



ZRCHBP 
ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCH62 
ZRCHB2 
ZRCHB2 
ZRCHBP 
/'Ki HBP 
ZHCHtl.' 
ZRCHBP 
ZRCHB2 
ZRCHB2 



ZRCHB2 
ZRCHB2 
ZRCHB2 
ZRCHBP 
ZRCHB2 
ZRCHB2 
ZRCHBP 
ZRCHB2 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 



ZRCH. . . 


.Bf> 


ZRCH. . . 


.cs 


ZRCH. , . 


.05 


ZRCH. . . 


,E5 


ZRCH. ., 


.FS 


ZRCH. . . 


.G5 


ZRCH. . . 


.Hj 


ZRCH, . . 


.15 


ZRCH. ., 


. J5 


ZRCH, .. 


J<5 


ZRCH. .. 


.L5 


ZRCH, .. 


MS 


ZRCH. ,. 


.N5 


ZRCH. . 


.B6 


ZRCH, . 


.C6 


ZRCH. . 


.06 


ZRCH. . 


.E6 


ZRCH. . 


.F6 


ZRCH. . 


.G6 


ZRCH., 


,H6 


ZRCH. . 


,16 


ZRCH, . 


. J6 


ZRCH. , 


,l<6 


ZRCH. . 


.L6 


ZRCH, . 


.M6 


ZRCH.. 


.N6 


ZRCH. . 


.B7 


ZRCH. . 


.C7 


ZRCH. . 


.07 


ZRCH, , 


F7 


ZRCH. , 


.F7 


ZRCH. , 


.57 


ZRCH. . 


.H7 


ZRCH 


, 17 


ZRCH. , 


.J/ 


ZRCH. , 


.l<7 


ZULU. . 


,1 / 


ZRCH. . 


.M/ 


ZRCH, . 


• N7 


ZRCH. . 


.BH 


ZRCH. . 


.C8 


ZRCH. . 


.OH 


ZRCH 


F8 


ZRCH. , 


.Ftt 


ZRCH. , 


.G8 


ZRCH. . 


,H8 


ZRCH. . 


.18 


ZRCH. . 


. J8 


ZRCH. , 


. .K8 


ZRCH. , 


,1 H 


ZRCH. . 


.M8 


ZRCH,. 


. ,N8 



ZRCHB3 
ZRCHB3 
ZRCHBi 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 
ZRCHB3 



ZRCHB3 
."'RCHB3 
ZRCHB3 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 



ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
ZRCHB4 
• MCHB4 
ZRCHB4 



ZRLHB4 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHB l > 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHBS 



ZRCH. .. 


.89 


ZRCH. . 


.C9 


ZRCH. . . 


,D9 


ZRCH. . . 


,E9 


ZRCH... 


.F9 


ZRCH. . . 


.G9 


ZRCH. . . 


.H9 


ZRCH. . 


.19 


ZRCH. . . 


. J9 


ZRCH.. 


.l<9 


ZRCH. , 


.19 


ZRCH. . . 


,M9 


ZRCH. . 


,N9 


ZRCH. . 


.BIO 


ZRCH. . 


.CIO 


ZRCH. . 


.010 


ZRCH. . 


.rio 


ZRCH, , 


.F10 


ZRCH. . 


.G10 


ZRCH. . 


.H10 


ZRCH. . 


.110 


ZRCH. . 


. J10 


ZRCH. . 


.KIO 


ZRCH. . 


.1.10 


ZRCH, . 


,M10 


ZRCH. , 


.N10 


ZRCH . , 


.Bll 


ZRCH. . 


.CM 


ZRCn. . 


.011 


ZRCH 


FM 


ZRCH. . 


.til 


ZRCH. . 


.Gil 


ZRCH. , 


.HM 


ZRCH. . 


.111 






ZRCH. . 


.Kll 


ZRCH. . 


,111 


ZRCH. . 


.Mil 


ZRCH. , 


.Nil 


ZRCH. . 


.H12 


ZRCH. . 


. CIP 


ZRCH. . 


.DIP 


ZRCH. . 


,LlP 


ZRCH. . 


.F12 


ZRCH. . 


,G1P 


ZRCH. . 


. .H12 


ZRCH. . 


. .112 


ZRCH. . 


. .J12 


ZRCH. . 


. PUP 






ZRCH. . 


. .Ml? 


ZRCH. . 


. .N12 



ZRCHBS 
ZRCHB5 
ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRCHB5 
ZRCHBS 
ZRCHBS 
ZRCHB5 
ZRCHBS 
ZRCHB5 
ZRCHBS 
ZRCHBS 



/HCHB5 

ZRCHB5 
ZRCHBS 
ZRCHB5 
ZRCHB5 
ZRCHBS 
ZRCHBS 
ZRCKiS 
7HLHB5 
ZRCHB5 
ZRCHBS 
ZRCHB5 
ZRCHB5 



ZRCHBS 
ZRCHBS 
ZRCHBS 
ZRC -IBS 
ZRC-.35 
ZRCKB5 
ZRCHB5 
ZRCHBS 
ZRCHBS 
ZRCH3S 
ZRCHBS 

zrchbs 

ZRCHB5 



ZRCHBS 

ZRCHBS 
ZRCHB5 
ZRCHBS 
ZRCHB5 

prchbs 

ZRCHBS 
ZPCHBS 
ZRCHBS 
ZRCHBS 

ZRCHBS 
ZRCHBS 



ZRCH. . . 


,B13 


ZRCH. . . 


.C13 


ZRCH., . 


.D13 


ZRCH. , . 


.E13 


ZRCH. . . 


.F13 


ZRCH. . . 


.G13 


ZRCH. . . 


.H13 


ZRCH. . . 


.113 


ZRCH 


J13 


ZRCH. . . 


J<13 


ZRCH. . . 


.L13 


ZRCh. . . 


.Mi3 


ZRCH. . . 


,N13 


ZRCH. . . 


.B14 


ZRCH. . . 


.C14 


ZRCH. . . 


.014 


ZRCH. . . 


,E14 


ZRCH. . . 


. c "14 


ZRCH. . . 


.G14 


ZRCH. , . 


.H14 


ZRCH. . . 


.114 


ZRCH. . , 


.J14 


ZRCH. . . 


.K14 


ZRCH. . , 


.L 14 


ZRCH. . . 


.ML4 


ZRCH. . . 


.N14 


ZRCH. . . 


.BIS 


ZRCH. . . 


.CIS 


ZRCH. . . 


.01S 


ZRCH 


MS 


ZRCH. . . 


.F1S 


ZRCH. . . 


.G1S 


ZRCH. , . 


.HIS 


ZRCH. . . 


.IIS 






ZRCH. . . 


,K1S 


ZRCH, . , 


,M r > 


ZRCH. . , 


.HIS 


ZRCH. . , 


.N1S 


ZRCH. . , 


.Bio 


ZRCH. . . 


.rib 


ZRCH. . , 


.01t> 


ZRCH. . , 


.i-:iti 


ZRCH. . . 


.Fib 


ZRCH, . , 


.vil'i 


7RCH. . . 


.hi*> 


ZRCH. . . 


. Clo 


ZRCH. . . 


.Jli> 


ZRCH. . . 


. Klb 


ZRCH. . . 


A.U> 


ZRCH. 


.Mlt) 



B 1 



7RCHnr> 

Ki.V B PA1CH 00 



5791 

3 W 
3795 
5 794 
3 79S 
3/^h 
3/ l K 

3 7**8 
3 799 

5800 
3801 
380/ 
380* 
3804 
380*> 
5 8 Oh 
380* 
5808 
5809 
3810 
3811 
381c' 
5815 
5814 
58 IS 
5816 
58 1 7 
3818 
3M<* 
58/0 
58/1 
38// 
58/* 
58/4 
58/S 
58/6 

38/ ; 

58/8 
38/9 
5850 
3851 
385/ 
5855 
3834 



3835 
5836 
3837 
3858 
38 59 
3840 
584 1 
384/ 
3845 
3844 
3H4'- 
3-J46 
3067 



JJRCHHO RC/;> DISK tOMMATTF.H 
MODUl e Of- CI. AR AT TONS 

TEMP - .RC/fvAODR CRCIP, RC ALL h 



5 -Apr -1964 13j46{24 
11 Jan -1984 I3t?3;12 



SEQ 0208 
VAX -11 Bl 199-16 V3-555 Page 64 

SPIDER*USERS»[NKALE,A;?TEC]ZRCHB5.B16;4 (18; 



Time out the port /controller for the response from this command, 

IF the controller times out thenj 

1, Sec what kind of error was returned. If the error 
Is a type oth«r than a CT0_C0DF (controller time out) 
then call routine Decode which does the appropriate 
action based on the error, 

t?. If the returned error is an C TO. .CODE then do a get 
dust status and checW the progress indicator to I00W 
for ao increase, indicating that the remote program is 
still running and Is not dead. 

If the indicator hasn't changed then assume that the 
remote program is dead and return an error code of 
RPD_C0DF. (remote program dead code) and enit. 

If the indicator has changed then assume that the 

remote program is still running, save a copy of its 

value and reinstate the controller time out delay and 
repeat the loop. 

As long as the progress indicator in the remote program 
is still increasing this loop will be repeated for ever. 

If th« controller doesr t t » »>e then return with the return code 
returned from routine CT0 WAIT () which could be either a success 
or error code by definition of this h<.*t code. 



'Repeat for ever 
!r lag control C s 



while TR1JK Jo 
beg ' n 

eaf ak . 

! Do a controller time out and determine if the controller 

♦ has processed the command or i f a fatal error has occu'ed. 
» 



i» : CT0 WAIT (8000, .RtF NUM, ,RLC BUf'ILOC) 

then 

begin 



! Is return an error 



If the return status code eql's a CTO COOL then see 'f the remote 
program is still running. If it is then save the progress indicator 
*r«i repeat the loop else call routine Decode (). 



if .RtT STATUS ealu CTO CUOt 
then 

begin 



{Is this a controller time out 



if W'T OUST STATiPi () then Or COD! t )j Jliet the dust statu* 

if .HLIJAIAO IPLO.XND) gtru .PlU.iiAVfc. 10] !Any progreaa been made 



CI 



/RCHtfS 

REV B PATCH 00 



3848 
3849 
38S0 
38M 

38S/ 

3853 

3854 
3855 

3856 
385? 
3858 
3859 

3860 
3861 
386/ 
38*3 
3864 
3865 
3366 
386 7 
5868 
386^ 
38 .0 
36 M 

38/3 
38/4 
38/5 
38/6 
38 7? 
38/8 
38/9 
3880 
3881 
388/ 
3883 
3884 
3885 
3886 

388 7 
3888 
3889 
3890 
3891 
389/ 

389 5 
3894 
3895 
389r, 
389/ 
3898 
389*# 
3900 



/RCMBO RC/S D.:SK U1RMATTER 
MODULE DECLARATIONS 



5 Apr 1984 13:46:^4 
11 Jan -1984 13j23:12 



VAX 11 Bliss 1* V3 555 
SPIDERIUSERS: [ NEALE. AZTEC 1ZRCHB5 



5F.0 0^09 

Page 65 
■ B16;4 C 18 j 



I: hen 



bea I n 



!8 



PID SAVE (0) - .RET.ENIAD [PLO.INDh 



* St 5 11 running save Pid 



else 



Pro SAVE (U • .RET C-.NSAD [PHI„IND]| 

PRINTB (PID„FMT, ,PID„SAVE [11, .PID. SAVE (0"J)| 

end 

If .RET_EN$AD [PH1..IND1 Qtru .PID.SAVF [1] 
then 

beg! n 

PID SAVE [0] • .RET ENtAD [PLO IND ) i 'Still running save P«d 

PID SAVE 11) - .RET.ENIAD (PHI_IND] t 

PRINTB (PID_FMT, ,PID„SAVE [1), .PID.SAVE C01)| 

else 

return RET^STATUS - RPD_C0DE| !Nc progress so flag error 



else 



end 



Tii* return status code was not a controller time out code so something 
else s wrong. Call the routine Decode C) to find out what went wrong. 



DECODE C ) 



end 



el«e 



begin 

The command *'•• been received by the interrupt service. 

Get this command* return envelope address out o* the 
outlstd iauf and check for good return status error and 
die if bad status . 



PET ENtAD - .OUTISTl) BUK I ,REC 01* U UC , ENV.ADRh 
Test for good status 



!Uet the ret env adr 



♦ .RET EN* AO (STATUS) nea^i A RO 
then 

return rtM STATU", - RSI COD* 
el«.e 

return ,H| T '.jtMH'Si 



! Test the status 

.'Return a "Response status err" code 

JThis ret statu** >s good or bad 



end{ 

return ,Kfc! .i lAtU^i 
end; 



)lt won t compile without tViu here 



00QQ0O 0Q4167 QOOGQGu 



.slint- KtC.DAlA MODULI DfeCU ARAI lOHU 
RtC.UAIAi; 



REV H PATCH 



00 



000004 

000006 
000012 
00001b 
000020 
000024 
000030 
000034 
00004* 1 
00004o 
000050 
000054 
000062 
000066 
0000 72 

oooo /b 

000102 

ooono 

000 114 
000120 
000126 
000132 
000140 
000144 
000146 
000150 
000154 
000160 
000164 
000170 
000174 
00017* 
000202 
O00204 

0002x0 
000212 
000216 
000222 
000224 
000226 
000232 
■ 00240 
00*246 
00^2S2 

00C25-; 
00026O 

00026:.' 

00026 ' 
0002/0 

0002 r 

0002 Vv 
000 i r 6 
000 504 
000306 
000312 
00031* 



005/4* 

004/67 

004/67 

010003 

016 746 

012 746 

004 76 7 

012760 

012701 

060001 

112711 

112761 

010360 

005060 

005060 

0050b0 

112760 

105060 

005060 

012760 

005060 

012760 

012701 

06000 i 

105011 

105061 

005060 

005060 

005060 

005060 

010316 

004 7b 7 

010002 
02022 7 
001002 
004 76 7 
lb 700 
00b 300 
006 3 00 
066700 
052/60 
01 //66 
016600 
104422 
012/16 
010346 
010246 
004 76 7 
022626 
0^6000 
103074 
026/2/ 
001065 
004 /b/ 
006000 
103002 



/RCHHO RC25 DISK UiRMATTER 
MOPU.fc DECLARATIONS 



1 73026 
1/3170 

OOOOOOG 

000054 

OOOOOOG 

000034 OOOOOOG 

000002G 

000001 

000002 000001 

000004 G 
O000O6G 
0000 10G 
0000 12G 

000005 000014G 
0000 15G 

0000 16G 

000170 000020G 

000022b 

OOOOOOG 000024G 

00002bG 



000001 
0000 50G 
0000 32G 
0000 34G 
0000 36G 

1/2/12 

002001 

l/305b 
OOOOOOG 



11 



)'I 

Apr 
Jan 



19M4 13 {46 ; 24 
19H4 I3i23tl2 



1$ 



OOOOOOG 
100000 000002 
OOOOOOG 000004 
000004 

017500 



175014 

000000(> 000011 
1 75500 



J5K 

1ST 

JSR 

JSR 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

MOD 

MOVO 

HCVO 

MOV 

Ci.R 

Cl.R 

CLR 

iiOVB 

CLRB 

CLR 

MOV 

CLR 

MOV 

MOV 

ADO 

CLRB 

CI RB 

CLR 

CLR 

CLR 

CLR 

MOV 

JSR 

MOV 

CMP 

BNf 

JSR 

MOV 

ASl 

ASL 

ADO 

HIS 

MOV 

MOV 

[RAP 

MOV 

MOV 

MOV 

JSR 

mp 

HOP 

BCC 

CMP 

NNt 

JSR 

RJH 

BCC 



R1.I5AVE3 

( in ) 

PC.GET.NSD 

PC.GET.CMDtREF 

R0.R3 

NSD.S'.OT, -(SP) 

054, -(SP) 

PC.BLIMUL 

O34.SN0.fcNVfcL.0Pt ( PO ) 

OSNO. ENVELOPS »2.R1 

R0.R1 

01. (Rl) 

02.KR1) 

R3, SNO. ENVELOPE *4(R0) 

SN0.ENVEL0PE*6(R0) 

SN0»ENVEl0PE»10(R0) 

SN0.ENVEL0PE*12(R0) 

05,SN0.ENVEL0PE*14(RO) 

SND.ENVEL0PE*15(R0j 

SN0.ENVEL0PE>16(R0> 

01 /O, SNO. ENVELOPE »20(R0) 

5N0.ENVEL0PF»22CR0) 

OREC . BUT , SNO . ENVELOPE »24C RO ) 

0SND.ENVELCK>E»26,R1 

R0.R1 

:ri ) 

1(R1) 

SNO.ENVELOf E*30(R0) 

SNO.ENVELOPE»32(RO) 

SND,ENVELOPE*34(RO^> 

SNO. ENVELOPE* 36(R0) 

R3,(SP) 

PC,LOAD.OLIT$STO,BL«- 

R0.R2 

R2, 02001 

1* 

PC .DECODE 

NSO.Sl OT.RO 

RO 

RO 

St NO. RING, RO 

0100000, 2( WO) 



MRC25.AO0R 

4(SP),R0 



41 SP) 



1 7500, (SP) 
R3. (SP) 
R2, (SP) 
PC, CU). WAIT 
(SP).,(SP)» 
RO 

a* 

Re I. STATUS ,011 

/$ 

PC. GET. DUST, STATUS 

MO 

3$ 



VAX -11 Blisn-1'i V5 555 jtQ Page° t*> 

SPIDER *USERSj[NEALE. AZTEC ]ZRCHB5«B16i4 C 18 j 



J 



j *,REF.NUM 

J 



J 
i 
! REF.NUM,* 



j RFK.NUM.* 

j • .HfC.Bl* SlOC 
I REC.BUF$lUC # * 



•.RCSS.RFG 

RC*S, REG, TEMP 



RE* .NUM. * 

REC.nUf'Jl.OC.* 



3677 

3 735 

373ft 

3740 



3/4). 

37*2 
3/4 3 
374 7 
3/4e 
? /49 
3750 
3751 
3/52 
3753 
3 759 
3760 
3^64 
3765 

37b/ 
3/68 
3/69 
3770 
3 / / 1 
37 72 
3780 



3 782 



3 78 7 



3>U 

5>VS 
38 52 



5*4 1 



M 



7RCHBS 

Rev B PATCH 



00 



0003lt» 

000,5^6 
000550 
000554 
000. MO 

00054*: 

00054 b 
000354 
000556 
00056? 
000566 
00057? 
0005/4 
000576 
000400 
000406 
0004 10 
000414 
0OO42? 
000424 
0004 30 
000434 
000440 
000442 
000444 
00O4S0 
00O45? 
000456 
000460 
0OO464 
000466 

0004 70 
0004 7? 
0004/4 
00050? 
000506 
000512 
000514 
0005?u 
0005?4 
000526 
00053? 

0005 36 



004 767 

016701 
010100 
OlbOOO 
02006 7 
101417 
010067 
016167 
010016 
016746 
01?746 
01?746 
010600 
104414 
00042? 
026167 
101421 
010067 
01616/ 

OlOOU'i 

0167/th 
012 At 
01274n 
010600 
104414 
06? 706 
000 700 
012/00 
000420 

004 76 7 
0006 7? 
010200 
006 500 
006300 
016067 
016000 

005 760 
001405 
012 700 
010067 
00040? 
016/00 
06? 706 
000207 



RC25 DISK ► UKMATTER 
DECLARATIONS 



ZRCHHO 
MODULI-' 

172 75? 

oooooon 

0000?4 
OOOOOOG 



OOOOOOG 

000026 000002b 

000002G 

OOOOOOG 
000003 



000026 000002G 

OOOOOOG 

000023 000002G 

00000?G 

OOOOOOG 
000003 



000006 
000051 
172610 



000002G OOOOOOG 

000002G 

000016 

000031 
OOOOOOG 

OOOOOOG 
000006 



3$: 



4$: 



5$ 

b% 
7$ 
8* 



9$: 

10$ 
11* 



5Apr 
11 Jnry 



1984 I3;46r?4 
1984 13:23:12 



SEQ 0211 
VAX -11 Bliss- 16 V3 555 Page 67 

SPIDERJUSERS: [NF.ALE.AZTECURCHB5.B16j4 (18) 



(SP) 



JSR PC , DECODE 

HOV RET.E.NtAD.Rl 

MOV Rl.RO 

MOV 24(R0),R0 

CMP RO,PID.SAVt 

BIOS 4$ 

MOV RO.PID.SAVE 

MOV 26(Rl),PID.SAVt ♦ ? 

MOV RO.(SP) 

MOV PID.SAVE*2. -(SI 

MOV OPID.FMT, (SP) 

MOV 05. (SP) 

MOV SP,RO 

TRAP 14 

BR 5$ 

CMP 26(R1),PID.SAVE>2 

BIOS 6$ 

MOV RO.PID.SAVe 

MOV 26(&l),PID.SAVf : >? 

MOV RO.(SP) 

MOV PID.SAVF»2, ■ ( SP ) 

MOV OPID.TMT, -(SP) 

MOV 03, (SP) 

MOV SP.RO 

1RAP 14 

ADD 06 , SF 

B^ 2$ 

MOV 051.R0 

BR 91 

JSR PC. DECODE 

BR ?* 

MOV R2.R0 

ASl. RO 

AS'. RO 

MJV OUTtSTD.BOf .2(R0).Rt I. EN J AD 

MOV OUT $ STD . BUT ♦?( RO ) , RO 

TST 16(R0) 

BfcQ 10« 

MOV 031, RO 

MOV RO. RET, STATUS 

BR 111 

MOV Ht T. STATUS, RO 

ADO OI..SP 

RT', PC 



j RET.ENJAD,* 



i PID.SAVE,* 



J SP,* 



3851 
3847 



5850 
3851 
3852 



; PID.SAVE,* 



; SP,* 



3849 
3856 

3859 

3861 



j REC.BUfSLOC* 



3858 
3856 
3864 

38 72 

3332 
3884 



3889 

3891 
38 >» 
36?" 



Routine Sl/e: 176 words, Routine Base: AC $ CODE * 5110 
Ma\ r mum stnew depth per invocation: 1? wordG 



1901 



I 1 



/RCHfl'j 

REV B PATCH 00 



3^0^ 

3904 

.'.90S 
3S06 
390 ; 
3908 

3910 
3911 
39h' 
39 H 
3914 
39 IS 
39 lt> 
391/ 
3918 
S91^ 
39.>0 
39^1 
39.> t > 
39 ( V«, 
39JM 
3<VS 
39^6 

y<> i 

39 t >8 

3950 
39 U 
39 V 
39M 
3954 
39 3 r > 
393* 

39 SH 

3^4o 
594 1 
394^ 
394 \ 
594 4 
394S 
594*, 
^94/ 
394 H 
T'*4-* 
39*. 
'M 

...)'> 
"39* .4 
..9SS 
39«,f. 

3'/, ' 



^RCHHO RC?5 DISK H1RMATTF.R 
MODULF DECLARATIONS 

global routine StT_CNil.R CHAR 



5 -Apr -1984 13;46;24 
11 Jan-1984 13:23;12 



SfcQ 0212 
VAX- 11 Bliss -16 V3-555 Page 68 

SPIDER$USERS;[NEALE.AZTEC]ZRCHB5.B16;4 (19'; 



{Sets control characteristics 



functional Description : 
The SET CONTROLLER 
settable uni t 
character 1st ics 
operat i on, Th i s 
( "uni t on I ine" , 
meaningless to 



CHARACTERISTICS command is used to set host 

characteristics and obtain those unit 

that are essential for proper class driver 

command nt^tr alters the unit's state 

"uni t -avai lable" , "uni t -of v" ine"). It is 

set host settable characteristics for a unit 



that is "un i t -avai lable" or "un i t -of f 1 ine" . 



f-'ormal Parameters 
none 

Implicit Inputs : 
NSDSL0T 



This global storage gets loaded by the routine 
'Ciet.nsd' and in It is stored the next send ring 
descriptor slot where the port/controller should 
be polling on and the place to put this commands 
command packet, 



Impl Ic i t Outputs 
none 

Completion Codes 
RET_STATUS: 



Return status passes bac^ to the calling routine 
the status of the just issued command. 



Side Effects : 

Any previously defined controller characteristics will possibly 
be altered after execution of this command. 



begi n 

local 

RH NUM. 
SCC .BUML0C, 

riMPj 



•Stores unique cmd ref number 

.'Stores outstanding cmd buffer location 

JA place to put read IP register data 



Before we load up the cowhand packet up witH all this good information 
get the next send descriptor slot and a unique command reference number. 



Gl. I . NS0 ( ) i 

Pff NUH - GET .CMC IRE* ( ); 
1 



.'Get the nent «tnd desc slot 
!Get a unique command ref num 



! UU Port command envelope H**<J-r field definition 

SND FNvHOPF [ .NSD Si 01 , MSti ifNGTH) • S/ SCC i !Load message length 

SND ENVL.OPl (.NSD SLOT, CREDIT 1 ;) - ONE 1 H oad credit si.'e 

SND i-.NVfc.L0Pt (.NSD Si 0T , MSG I rPF J - 0| 'Define message type Sequential' 

«>N0 INVElOPt I .NSD SI or, CONN ID) - rtsCPj 'Define connection ID 

1 MUCH generic cgiwiiand «rtv«iOD$ t'**ld definition 



m 



ZRCHHS 

REr.V 8 PATCH 



00 



5^S4 

S<->tO 
?9M 
3^t>4 
3 ( *bS 
5^t»b 
!W> : 
39*8 
59?'i9 

?9<*1 
54 ,V 
59/5 
54/4 
39 /S 
59/6 
59// 
59/8 
59/4 
5980 
5981 

39a;- 1 

3983 
3484 
59MS 
5 ^Hb 
34H ' 
39, 8 
3984 
54**0 

:»94i 

3»9 t > 
599 *> 
5994 
544S 
594h 
344 / 
3440 
5444 
4000 
4001 
4 GO. 1 
400 5 
4 004 
400S 
4 Oof, 
*". 00 / 
* % .uOM 
4009 
4010 
40H 
401. J 
401', 
4.J14 
401S, 



/RCHHO RC^S DISK ► OHMATTF.R 
MODULE DECLARATIONS 
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SPIDER SUSERS : {NEALE.AZ TEC ]ZRCHB5. B16; 4 (19; 



I 

SND 
SND 



[ 



SND 
SND 
SNO 



NSD 
NSD 
NSD 
NSD 
NSD 



ENVELOPE 
ENVEl OPE 
ENVELOPE 
ENVELOPE 
ENVELOPE 
SNO. ENVELOPE 

SND. ENVELOPE 

i 

! Commas id specfic command envelope 



[ 

( 

( 

[ 

t .NSD SLOT 

[ .NSD SLOT 



SLOT 

SLOT 
SLOT 
SLOT 
SLOT 



CMD l.REE ] 

CHD HREF] 

UN LUSED] 

UN_HUSED] 

OPCODE! ' 

RSVDI - ZERO; 

MODIEIER") • ZERO i 



.REE NUMj Sl.oad command reference number 

ZERO j ,'Ztro H) order cmd ref num 

!Not used in DUP impl i mentat i on 
•Not used in DUP impl I mentation 
!Load this commands op -code 
! Not used field 
JDefine this commands modifiers 



- ZERUi 

- ZERO, 

OP SCC j 



f !eld def in i t i on 



i 

SND ENVELOPE [.NSD SLOT. MSCP VER] - ZERO; 

SND ENVELOPE [.NSD SLOT. CTL_ELAGS] • ZERO} 

SND ENVELOPE [.NSD SLOT, HOST TOV] - ZERO} 

SNO ENVELOPE [.NSD SLOT. RS$VD] - ZERO} 

SNO ..ENVELOPE [.NSD„SLOT, T$D_0] * ZERO} 

SND ENVELOPE [.NSD SLOT. TID 11 - ZERO 

SNO ENVELOPE [.NSD SLOT, T$D 2] - ZERO 

SND ENVELOPE [.NSD SLOT. TID 3] ■ ZERO 

SNO ^ENVELOPE [,NSD_SLOT, CDP LOJ - ZERO; JCntlr <&p 

SND ENVELOPE [.NSD.SlOT, CDP..HI) - ZERO: JCntlr dep 

i 

Call the load outstanding command buffer routine and load th i y command 
into the buffet , The return from this routine will point us to the 
buffer location where this command i * stored. Later Me can looW at thi< 



JMSCP version 
SController flags 
•Host time out value 
•Reserved 

Date 

Date 

Date 

Date 



.'Time 
•Tim* 
•Time 

•Time 



and 
and 

and 
and 



word 
word 
word 
word 
parameter 
parameter 



lo 

h i 



word 
wrd 



i 
i 

see 



location to see if the interrupt service routine has received and process 
.BWilOC * LOAD OUTISTD.BUE (.RE' NUM)} {load the command 



it. 



If .SCC BUESl.OC eqlu OBE ..CODE then DECODE ()j 



! Error IF buffer is full 



i 
t 

SE 



h 

i 
i 
i 
i 

j 

i 

i 

» 
i 

i 



Set the ownership bit to 1 giving this slot to the port/controller 

NO RING [.NSD. SLOT, OUNBIT) * PORT OUNEOj 

Head the IP register to stimulate port polling 

MP * .RC.'S.ADDR [RCIP, HC All]; 

Time Out the port /controller processing the command 



The first 
respond tc 



test tests the connections no • I • t y to 
this command without any errors in the SA 
register and for the command not timing out. 



The second tests the DUP server for good status. If 
bad status is sent back then an error cod« is returned 
to the calling routine where the routine "decode" will 
deccde and taUe the appropriate recovery, The time 
out routine will loop on delaying and checking the hi 
bit of the first word in the outistd bvf for a true. 
Uhen true signals us that the, interrupt service routine, 
nas received the CrtsJpacket and no, connect ion err-cjru 

were d« tec tea* 



-TRCHU5 /RCHBO RC/5 DISK K)RMA1 TER 

RF.V B PATCH 00 MODULE DECLARATIONS 



5 -Apr 1984 13 i 46: 24 
HJan-19tt4 13:23:12 



VAX -11 Bliss- 16 V3 555 

SPIDFR JUSF.RS j [ NEALE . AZTEC )ZRCHB5 



SFQ OP 14 

Page 70 
B16;4 (19) 



401b 
401/ 
4018 
4019 
40/0 
40/ \ 
40// 
40/3 
40/4 
40/5 
40/r. 
40/; 
40/8 
■*. 0/9 
4050 
4031 
405/ 
4055 
4034 



if CTO WAIT (3000, .RFF..NUM, . SCC . BUF$LOC ) then DECODE ()i ! Io return on error 

! Get the return envelope address from ^he out$std_buf 
! at this commands buffer location and check the packet 
! for good status error and die if bad status wnn returned 



RET. ENSAD 
i 



.OUHSIDBUF [ .SCCBUFSLOC, ENV..ADR}| »Get the ret env ndr 



! Now test for good status 



if JUT FN* AD (STATUS] nequ /FRO 
then 

return RET STATUS - R5E..C0DE 
else* 

return ,»:ET_STATUS j 

end; 



.•Test the status 

! Return a "Response status err" code 

•This ret. status is good or bad 



oooooo 00416/ oooooog 



000004 005 /4( 

000006 004 76 / 

00001/ 004/67 

OOOOlo 01000/ 

0000/0 016/46 

0000/4 01/746 

000050 004/67 

000034 01/760 

00004/ 01/701 

000046 060001 

000050 U//U 

000054 105061 

000060 010/60 

OC0064 005060 

0000/0 005060 

0000/4 005060 

000100 112/60 

000106 105060 

00011/ 005060 

000116 005060 

000 1// 005060 

0001/6 005060 

000 13/ 005060 

000156 C05O60 

00014/ 005060 

000146 005060 

00015,' 005060 

00015*, 005060 

00016/ 005060 

000166 010/16 

0001/0 004/6/ 

00' U ,'4 010001 

000l?6 Q^Ol/7 00/001 



1 72/66 
1724 30 

oooooot; 

000054 

OOOOOOG 

000040 OOOOOOG 

000002G 

000001 

000001 

000004G 

000006G 

0000 10G 

0000 J/G 

000004 000014b 

0000 15(, 

0000 16G 

OCOO/OG 

0C00//', 

00O0/4G 

00O0/6G 

00G0 50(; 

0000 VG 

0000 54G 

00003611 

0000401) 

0004/1, 

1 //160 



SBTTL 


SET.CNTl R.CHAR MUDULE 


SET.CNTLR.CMARi 


« 


JSR 


Rl, ISAVE2 


T5T 


-(SP) 


JSR 


PC.GFT.NSD 


JSR 


PC.GET,CMD$REr 


MOV 


RO.R/ 


MOV 


NSD.SLOI , (SP) 


MOV 


054, (SP) 


JSR 


PC.BliHUL 


MOV 


O4O,SNO.ENVEL0PE(R0) 


MOV 


OSNO. ENVELOPE* 2, Rl 


ADD 


R0.R1 


MOVB 


Ol.lRl) 


CLRB 


KR1) 


MOV 


R2.SN0.ENVLI OPb t4(R0) 


CL.R 


SND. ENVELOPE *6(R0) 


CI R 


SNO.ENVFL OPE ♦IOC HO) 


CI R 


SNO.ENVEL0PE*12(RO) 


MOVB 


04 SN0.ENVEL0PE»14(R0) 


CLRB 


SND.FNVE10PE*15(R0) 


CLP 


SNO.FNVEL 0PE*l6(RO) 


CL.R 


SNO. ENVELOPE* 201 RO) 


CI R 


5NDJNVI I 0PE*/2(R0) 


CI H 


5NU.ENVEL0PE*24(R0) 


U M 


5ND.ENVEI 0PE»26(RO) 


Cl.R 


SNO.ENVEL0PE»30(RO) 


CI R 


SNO.ENVtl 0PE*32(RO) 


CI R 


SNO.ENVt t OPE »34(R0) 


Cl.M 


SNi .ENVt I OPE *36(R0 ) 


CI R 


5ND.ENVEL0PE*40(RO) 


CI R 


SND. ENVELOPE *4/tH0) 


MOV 


R/.(5P) 


J'.H 


PC.I OAD.OUMSTD.UU 


MOV 


HO, Ml 


CM-"> 


R 1,0/001 



♦ ,Pf.F.NUM 



RF.F.NUM,* 



{ MEF.NUM,* 

5 ♦.SCC.BU $1 OC 
\ SCCBUFSLOC t * 



390/ 

3948 

3949 

3953 



3954 

3955 
3^5t> 
3^60 

3961 
396/ 
3963 
39**4 
3965 
39r>6 
3*-* .'0 
39 .' 1 
3'V'*/ 
3 l »/3 
39/4 
39 '5 

:v».v 
3**.* ' 

3 L * 



'8 



?9M6 



$*$$ 



II 



R^V B PATCH 



00 



00020? 
000204 

ooo.uo 

000? 14 

00021 6 

000220 
000. \?4 
0002.V 
000240 
00^244 
0002SO 

000252 

000254 
000260 
00C2t>2 

oeo?t>4 

000266 

0002 72 
0002/4 
000? 76 
000300 
000506 
000 5 1? 
00031t> 
000 320 

ooo 324 

000330 
000332 

0003 V, 
00054? 



oo too? 

004 76 7 
016 700 
006 300 
006300 
066700 
052760 
01 .'/t>6 
016600 
012716 
01024b 
010146 
004 767 
022626 
006000 
10300? 
004 767 
010100 
006 300 
006300 
016067 
016000 
003/60 
00140 r > 
012/00 
OlOOo/ 
00040? 
016/00 
062 >06 

00020/ 



ZRCHBO RC25 DISK UlRMATTER 
MODULE DECLARATIONS 



l/?3?4 
OOOOOOG 



OOOOOOG 
100000 00000? 
OOOOOOG 000004 
00' 1004 
005670 



1$: 



174264 



17224? 



000002G OOOOOOG 

00000?G 

000016 

000031 
OOOOOOG 

OOOOOOG 

000006 



2$: 



3$ 

4$ 





5 -Apr- 1984 13:46:24 




11 Jan-1984 13:25:12 


BNE 


H 


JSR 


PC, DECODE 


MOV 


NSD.SLOT.RO 


ASl. 


RO 


ASl. 


RO 


ADO 


si.nd.ring.ro 


BIS 


<M00000,2(R0) 


MOV 


6WC25.ADDR,4(SP) 


MOV 


4(SP),R0 


MOV 


05670, (SP) 


MOV 


R2 . - ( SP ) 


MOV 


Rl, (SP) 


JSR 


PC.CTO.WAIT 


CMP 


(SP)»,(5P)» 


ROR 


RO 


BCC 


2* 


JSR 


PC. DECODE 


MOV 


Rl.RO 


ASl. 


RO 


ASl. 


RO 


MOV 


0UT$STD.BUfS2(R0)»Rt T.ENJAD 


MOV 


OUT$STD.BL>S2(R0).R0 


TST 


16(R0) 


beq 


3$ 


MOV 


031.RO 


MOV 


RO, RET. STATUS 


BR 


4$ 


MOV 


Rfr T .SlATUS.RO 


ADD 


06, SP 


RTS 


PC 
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3993 



j *.RC$S.REG 

5 RC IS. REG, TEMP 

REI .NUM.* 
SCC.BUFSLOC,* 



399/ 
4016 



; SCC.UUFSLUC* 



4023 

4028 

40 <0 
3<V3 f 
3902 



Rout i ne s < je : 
Ma\lmjm stack 



114 words, Routine Base: AC t CODE * 5650 
depth per invocation: 9 words 



4031) 



Jl 



/RCHHli 

RKV B PATCH 



00 



4QSb 

403 7 
4038 
4039 
4040 
4041 
404? 
4043 
4044 
404S 
4046 

404 7 
4048 
404^ 
40SO 
4051 

4oru? 

40b 3 
4054 

4055 
405e> 

4 05 / 
405H 
40b** 
40f^0 
4061 
4 06? 
4063 
4064 
40t»5 
4066 

406 t 
4 068 
406W 
40/0 
4071 
40 7? 
40 7 3 
40/4 
40/5 
40/6 
40/7 
40/8 
40 ! K * 
4080 
4081 
408? 
408 3 
'084 
408 b 
408t> 
408/ 
4088 
4')8 l * 
40'#0 
4uvl 
40*W 



^RCHBO RC?S DISK FORMATTER 
MODUl.F DID ARATTONS 

global routine ON LINE - 



functional Description ; 

The online command is 
host set table unit 
characteristics that 
operation. The unit 
are loaded prior 
message , Host set tab 
a set unit characte 
characteristics are se 
and any other villi dit 
host set-table character! 
"on i t on I i ne" , 

Formal Parameters : 
none 



5-Apr 1984 15;06:24 
11 -Jan -1984 13:23; 12 



SF.Q 0?16 
^M-ll Bliss-16 V4 555 Page I'd 

SPIDFR$USF.RS:lNEALE.AZTE?3/RCHB5.bl6;4 (20 j 



•Hakes a unit come online to a host 



used to bring 
character ist ics 

are essentia 
i s spun - up , If 

to returning 
le characteristic 
r 1st ics command 
t after the un i t h 
y cheeky have sue 
sties are not alte 



a unit "un i t -onl I ne i set 

and obtain those unit 

1 for proper class driver 

necessary, and is heads 

the online command's end 

s are set exactly as if 

were issued. Host settable 
as been successfully spun -u 
ceded. Note that the unit's 
red if the unit is already 



Impl ic ! t Inputs : 
NSD.SL0T 



This global storage gets loaded by the routine 
'Get nsd' and in it is stored the next send ring 
descriptor slot where the port/controller should 
be polling on and the place to put this commands 
command packet , 



Implicit Outputs 
none 

Completion Codes 

RUT STATUS: 



Return status passes back to the calling routine 
the status of the just issued command. 



Side Effects : 

Any previously defined controller characteristics will possibly 
be altered after execution of this command. 



beg i n 

local 

HM NUM. 

onl tiursi.oc, 

TEMP; 



Stores unique cmd ret number 

Stores outstanding cmd buffer location 

A place to put rend IP register data 



! Before we load up tne command packet up with all this good information 
! get the next send descriptor slot and a unique command reference number. 

ft 



!Get the next send desc slot 
Hie'*; a unique command ref num 



Gt T NSD ( ) ; 

Hrf Nl*1 - GLT CMOS MM ( ); 

f 00 Mori command envelope Header field definition 

5ND fNvHOPf [.NSD SI 01, MSG IrNGTH] • c ,l .ONI i !t oad message length 

'jNU i NVU OPL t .NSD VUl. CRHJ1TS] * ONt ( 'load credit s I je 

SND LNVH OPt I. NSD. SLOT, MSti_TYPr ] * Oj '.Define message type 'Sequential' 



/RCHBS 

REV B PATCH 



00 



4093 
4034 
4095 
40S6 
409 * 
4098 
4099 
4 LOO 
4?01 
410.' 
4105 
4104 
410*. 
4 106 
410.' 

aoh 

* 109 

4; 10 

4\xi 

41K» 

4113 

4114 

4U5 

4116 

411/ 

4118 

4119 

4 120 

4h?l 

4LV 

4ii?S 

41^4 

4125 

412b 

412/ 

4128 

4129 

4 HO 

4 151 

4132 

4133 

4134 

4 135 

4 136 

4137 

4138 

. . 1 39 

4140 

4141 

. 142 

414 3 

4144 

4 145 

4 146 

4 14/ 

4148 

4149 



ZRCHHO RC25 DISK FORMATTER 
MODUl.K DECLARATIONS 

SND..ENVELOPF. (.N5D..SL0T, CONN.. ID) - MSCPj 



r 



5-Apr-1984 
11 Jon- 1984 



13:46:24 
13:23:12 
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•Define connection ID 



MSCP generic command envelope field definition 



SND ENVELOPE 

SND ENVELOPE 

SND ENVELOPE 

SND ENVELOPE 

SND .ENVELOPE 

SND ENVELOPE 
SND ENVELOPE 



[ .NSD SLOT, 
[ .NSD SLOT, 
[ .NSD SLOT, 
[ .NSD SLOT, 
[ .NSD SLOT, 
[ .NSD SLOT, 
[ .NSD SLOT 



CMD_LREF] ■ ,REF_NUM{ {Load command reference number 

CMO.HREn • ZFROj .'Zero Hi order cmd ref num 

UNIT NUM] - .UNIT NOj !Selcct unit to bring online 

UN_HUSED] - ZERO j 'Not used in DUP impl i mentation 

OPCODE] - OP.ONL; {Load this commonds op -code 



RSVD] - ZERO i 
MODIFIER] - ZERO} 



Command specfic command envelope field definition 



.♦Not used field 

•Define this commando modifiers 



SNO ENVELOPE [.NSD SLOT, 
SND ENVELOPE f .NSD SLOT, 
SNO ENVELOPE [.NSD SLOT, 
SNO r.NVELOPE [.NSD SLOT, 
SNO LNVELCFE [ .NSO.SLOT, 
SNO. ENVELOPE [.NSD.SLOT, 
SNO ENVELOPE [ ,NSD_SLOT. 
SND_ENVELOPE [.NSD SLOT, 
SND .ENVELOPE [ ,NSD SLOT, 
SNO ENVELOPE [ .NSD SLOT, 
SNO ENVELOPE [ .NSD SLOT, 
SNO ENVELOPE [.NSD SLOT, 



RSV5D] - ZERO; 
UNT. FLAGS) • ZERO; 



RSVDIO] 

RSVDI1] 

RSV0I2] 

RSV0t3] 

RSV0I4] 

RSVDI5] 

DOP,LO] 

DDP_HI] 

SHADOW UNIT] 

COPY SPEED] 



ZERO; 
ZERO} 
ZERO; 
ZERO; 
ZERO; 
ZERO} 
ZERO; 
ZERO} 



!Reserved 

•Unit flag field 

•Reserved field 

{Reserved 

.'Reserved 

{Reserved 

{Reserved 

{Reserved 

•Dev ice 

•Dev ice 



field 
f ie'd 
fie. . 
field 
field 
dependent 
dependent 



parameter 
parameter 



• ZERO; 
ZERO} 



} Shadow un i t 
{Copy 3peed 



Coll the load outstanding command buffer routine 
and load this command into the buffer. The return 
from this routine will point us to the buffer location 
where this command is stored. later we can loot at 
this location to see i f the interrupt service routine 
has received and process it. 

0NL_BUF$LOC - I 0AD„0UTS5TD Bl> (.REF.NUM); {load the command 

f .0NL_B'>"$L0C eqlu 0BF..C0DE then DECODE (); 'Error if buffer is full 

Set the ownership bit to 1 giving this slot to the port/controller 

END. .RING [.NSD. SLOT, OWN. .BIT] » PORT OWNED; 

Read the IP register to stimulate port polling 
EMP - ,RCi?5.A0DR (HCIP, RC All]; 

Time Out the port /controller processing the command. 

The first test tests the connections ability to 
respond to this command without any errors in the SA 
register and for the command not timing out. 

The second tests the DUP server for good status. If 
bad status is s* it bacw then no error code Is returned 
to the calling r^ut'nc where the routine decode" will 
4cqq4* and take the appropriate recovery, The time 



.'RCHB5 

REV P °ATCH 



00 



4150 

4i:>i 

415? 
4 IS 5 
4154 
4155 
415b 
415/ 
4156 
41S^ 
4160 
4161 
41b? 
4165 
4164 
4165 
4166 
4U>/ 
4168 
416^ 
41/0 
41/1 

417? 

41/5 
4174 
4175 



/RCHBO RC?5 DISK U)RMATTER 

MODULE DE-.Cl.ARAT r ONS 



L 



b-Apr 1SA4 13j46:?4 
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out routine will loop on delaying and checking the hi 
bit of the first word in the outistd buf for a true. 
When true signals us that the interrupt service routine 
has received the endpacket and no connection errors 
were detected. 

f CT0..WAIT (ONE_hINUTE, .REF_NUM, .0NL„BUF$L0C ) then DECODE Oj 

Get the return envelope address from the outlstd.buf 
at this commands buffer location and checW the pocket 
foi* good status error and die if bod status was returned 

RET ENSAD * . 0UT$$TD..BUF [ , 0NL.BUF HOC * ENV„ADR]j !Get the ret env adr 



! Is return on error 



Now test for good status 



f .RET EN$AD t STATUS] nequ ZERO 
then 

return Rfc T STATUS - RSfc_C0DE 
else 

return .RET_STATUS} 

end? 



♦Test the status 

Return a "Response status err" code 

! This ret^status is good or bod 



000000 00416 7 OOO000G 



5BTTL ON. I INF. MODULE DECLARATIONS 



000004 
000006 
00001? 
000016 
0000?0 
0000?4 
000050 
000054 
00004? 
00004b 
000050 
000054 
000060 
000064 
0000/0 

0000 /6 
00010? 

ooo no 

000U4 
000 1?0 
000 1?4 
000150 

0001 '»4 
000140 
000144 
000150 



005746 
004 76/ 
004/67 
01000? 
016/46 
0l?/46 
004 767 
01? /bU 
01?701 
060001 
112711 
105061 
010?60 
005060 
016/60 
005060 
11? /60 
105060 
005060 
005060 
005060 
005060 
005060 
005060 
005060 
005060 



1 / 1 /?? 
172064 

000000G 

000054 

000000G 

000044 

0^000?G 

000001 

000001 

0OO004G 

000006G 

0O0000G 

0000 1?G 

000011 

000015G 

000016G 

0000?OG 

OOO0??G 

000024G 

000026G 

00C050G 

0000 3?(> 

000054G 



OOOOOOG 



0000 10G 
000014G 



ON 


LINE: : 






JSR 


Rl ,5 SAVE? 




TST 


(SP) 




?SR 


PC.GET.NSO 




JSR 


PC,CiET.CMD$RFF 




MOV 


RO.R? 




MOV 


NSD.SLOT, -(SP) 




MOV 


454, (5P) 




JSR 


PC.BL.tMUL 




MOV 


044, r ND,ENVELOPr (RO) 




MOV 


OSND. ENVELOPE *?,R1 




ADD 


R0.R1 




MOVB 


01. (RD 




CL RB 


KR1) 




MOV 


R? . SNO . ENVELOPE »4( RO ) 




CI R 


SND. ENVELOPE »6(R0) 




MOV 


UN I T . NO . SND . ENVEL OPE ♦ 10( RO ) 




CLR 


SND.ENVELOPE^CRO 




MOVil 


01 1, SND. ENVEL OPE* 14CR0) 




CLRO 


5ND.ENVEL0PE*15(R0) 




CLR 


SNO. ENVELOPE^ 16(R0) 




Cl R 


SND. ENVELOPE »?0(R0) 




CI R 


SND. ENVEL OPE *2?(R0) 




Cl R 


SND. ENVELOPE *?4(R0) 




Ct R 


SND.ENVEl 0PE»2b(R0) 




CLR 


SND.ENVEL0PE»50(R0) 




LLR 


SNO. ENVELOP* ».'?(R0) 




CLR 


SND. ENVELOPE »34(R0) 



*,REF 4 NUM 



RE K. NUM.* 



4 56 

4085 

4086 

4 090 



4091 

40 4 V 
4C"»5 

40'* ' 

.)0 L M 

4 1 00 
4101 
410? 
4 1 < 

4 \ o : 

4 l OH 
4 10'* 
4 MO 

-1 I i I 
411? 
411$ 



11 



ZRCHB5 

rev b patch 



oo 



oooir>4 

0C0160 
000164 
000170 
000174 
000200 
C 00202 

000206 
cookie 

000214 

000216 
000222 
000226 
000250 
000252 
000256 
000244 
000252 
000256 
000262 
00026*: 
000266 
000272 
0O0274 
:">00276 
000500 
000504 
00050o 
00051G 
000512 
000520 
000324 
000550 
000552 
000556 
00054,' 
000544 
00051,0 
000554 



005060 

005060 

005060 

005060 

005060 

010216 

004 76? 

010001 

02012/ 

001002 

004 76 7 

016700 

006500 

006500 

066/00 

052760 

017766 

016600 

012716 

010246 

010146 

004 767 

022626 

006000 

105002 

004 767 

010100 

U06500 

006500 

016067 

016000 

005/60 

001405 

012 700 

01006/ 

000 J 02 

016/00 

062 /06 

00020 / 



RC25 DISK OKMATTER 
DECLARATION 



ZRCHBO 
MODU .E 

000056G 
000040G 
000042G 
0OO044G 
000046G 

1/1602 

002001 

1 / 1 746 

OOOOOOG 



OOOOOOG 
100000 000002 
OOOOOOG 000004 
000004 
165140 



175706 



171664 



000002C OOOOOOG 

000002G 

000016 

000051 
OOOOOOG 

OOOOOOG 

000006 



5 -Apr 1984 15:46:24 
ll-Jan-l*B4 13:23:12 





CI R 


SND.ENVEL0PE*56(RO) ; 




CLR 


SND.ENVEL0PE*40(RO) ; 




CLR 


SND.ENVEL0PE*42(R0) s 




CLR 


SND,ENVEL0PE*44(R0) j 




CLR 


SND.ENVEL0PE*46(RO) j 




MOV 


R2.CSP) ; 




JSR 


PC.L0AD.0UT$STD.BUf r 




MOV 


R0.R1 ; 




CMP 


R 1.42001 ; 




BNF. 


1$ 




JSR 


PC, DECODE 


1$: 


MOV 


N5I\S1.0T.R0 j 




ASL 


MO 




ASL 


RO 




ADD 


send.ring.ro 




BIS 


0100000, 2CR0) 




MOV 


aRC25.ADDR.4CSP) i 




MOV 


4CSP),R0 ; 




MOV 


0-12640, (SP) ; 




MOV 


R2.-CSP) ; 




MOV 


Rl, (SP) j 




JSR 


PC.CTO.WAIT 




CMP 


C5P)*,CSP)* 




ROR 


RO 




BCC 


2* 




JSR 


PC, DECODE 


2$: 


MOV 


Rl.RO j 




ASL 


RO 




ASL 


RO 




MOV 


OUT5STD.BUE*2(RO).R( T.EN5AD 




MOV 


0UT$STD.BUF*2(R0),R0 




1ST 


16(R0) 




BEG, 


5 5 




MOV 


OV ,'iO 




MOV 


R'V'.t '. rAMlS 




BR 


45 


5i: 


MOV 


R: T . •■!ATUS»RO 


45: 


ADD 


Or, , sf 




RTS 


PC 



SEQ 0219 
VAX 11 Bliss- 16 V5 555 Pogt /5 

SPIDER$USERS:(n'V:ALE,AZTECJZRCHB5.B16;4 (20; 



4114 
4115 
4116 
411/ 
411B 
4127 



REF.NUM.+ 

*,ONL.BUr$L0C 
ONL.BUFU.OC* 



♦.RCSS.REG 
RC* 5. REG. TEMP 

REE. NUM.* 
ONUBUFSLUC,* 



; ONL.BUFU.OC.+ 



4120 

4 154 

4158 
4157 



4164 

4169 

4 171 
4074 
4056 



Routine Si.*e: 114 words, Routine Bnse : 

Maximum stock depth per Invocation: 9 word* 



AC5C0DE » 6214 



4176 



Nl 



7RCHB r -> 

RtV B PATCH 00 



4i/; 

4178 
4 1 /9 
4180 
4 l w l 
4182 
4184 
4184 
418S 
418h 

418 ' 

4188 
418° 
4190 
4^'U 
4192 
4103 
4194 
419 l > 
419h 
419/ 
4198 
4 19 1 * 
4200 
4/01 
4/V 
-i20< 
4/04 
4 .'OS 
4/0*> 

4/0/ 

4/08 
4.' 09 

4 2 1 
4/11 
421/ 
4/15 
4/14 
4/1S 
4/ lb 
4217 



ZRCHHO WO"" 7 ' DISK fOHMATTF.R 
MOOMLt DECLARATIONS 



c . Apr 1984 13:46 : 24 
11 Jar -1984 13:25:12 



VAX -11 Bliss 1'. V, SSS 

SPIDFRJUSFRSifNLALt.A/ThO/RCHBf; 



3 t; Q 0220 

Page 76 
B16j4 (21; 



global routine INT $ I .SfcRVlCfc : INT.l.NKST'fP novalue ' 



! In It sequence interrupt catcher 



functional Description : 

During the initialization sequence the lb bit is defined to be 

a ;ero. This means that the host «s not requesting Interrupts at 

the completion of steps 1 V 

Note that no Initerrwpt will be generated at the completion of 
step 4 since this step rqulres only r% small number of time. 

This Interrupt service routine serves to catch any .nterrupts that the 
controller might Issue ouring the Initialization sequence. The 
interrupt Is ignored and control Is returned. 

This interrupt servce routine s also used during the RC/V reg'ster 
existence test In determining whether P. Table RC2 c j agisters e^Ist. 

Formal Parameters : 
none 



Impl ic ' t Inputs 
NL* K.Ai, 



Impl Ic I t Outputs 



Complet 'on Codes 
none 

Side t tfects : 

none 



A flag which s loaded w'tn «*e»*os our"ng t^e w^/', reg ',tc 
e*"stence tes* and set to all one-. b» **■>—• '■oj* n e ' n tr ~e 
event o f attempts to ^eao* *i nor e« 'stent WC/'. controller. 



Is » - et >fneo w'tn all o^e*. "n t h c eve n t o f w C/ t: > 
register access at f empts. 



nor e 



stert 



beg ' n 
N* >■ v , iij 
return j 
end; 



ONLS; 



■ !«q cite *.'- 



*e rr jf ,» , : , cc .r^o 



000000 01//*./ 1 / 7 / / / 0000(;0( » 
OOOOOh 0OC0O2 



. h* " 
INT J : . SM«. ' "J 



; Rout ' ne ' »'.*e. 4 words , ••0 , j*'ne Base : »* - * 
j Maximum stack depth per invocation* w^rd*; 



f : ^,/; \ 



• *A 



4218 



rRCHB'i 

REV B PATCH 00 



4219 
4220 
4221 
4222 
4223 
41*24 
4225 
4226 
422/ 
4228 
42^9 
4250 
4231 
4232 
4233 
4234 
4235 
4236 
423? 
4238 
4239 
4240 
4241 

4242 

4243 

4244 

4245 

4246 

4>4 7 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

425/ 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

42*»H 

4269 

42/0 

V/l 

42 72 

42 M 

4.' 74 

4*75 



ZRCH60 RC25 DISK FORMATTER 
MODULE DECLP n ATI0NS 



global rout 



I<i_ TIMER (SEQ.NO) « 



l Jr. 

5 -Apr -1984 13 j 46 : 24 
11 Jan -1984 13 5 23: 12 

{In it sequence time out 



VAX-11 Bliss-16 V3-555 

SPIDER *USERS:(hEALE.A/TEC)/RCHB5 



SF.Q 0221 

Page 7 1 
B16;4 (22; 



Functional Description : 

Steps 1-3 c? the in It sequence, each are required to complete within 

10 seconds, If any of these steps fails to complete within that period, 

this is to be treated as a host detected fatal error. 

This routine will do one us delay* for total of 10 seconds. After 

each delay tru* step field is examined to see U ? this in it sequence has completed. 

Formal Parameters : 

SEQ.NO: Indicated which init step is presently being performed within the RC25 init sequence. 

Implicit Inputs : 
none 

Implicit Outputs ; 
none 

Complet Ion Codes : 

TRUE: Indicates to the calling routine that t^e indicated init sequence step has timed out, 

FALSE: Indicates to the calling routine that the indicated init sequence 
step has not timed out. 

Side Effects : 

If the init sequence step times out and ar\ error is posted in the sa register 
then the routine decode will be call, 

begin 



local 

T0_VALUt : word, 
STEP..VAL : word} 



IStep time out value 

! Temp storage of st*v value 



STEP .VAL » ZEROj 
1 



jMa^e sure the loc is zeroed out 
! Select the step value expected from thJo init sequence step. 



selectoneu ,SEQ NO of 
set 



0] 



begin 

STEP VAL. 
TO .VALUE 
end 1 



Sb'0001* 1 
20000 1 



IX] 



begin 

1 jTFP vAi » Sb 0010* j 
nj VALUE • UOOOj 
end 1 



.♦Select the binary step value 



{Step 1 binary value 

J Timeout step one for t>0 seconds 



fStep 2 binary vftlue 

{Timeout step two l oP 10 seconds 



REV B PATCH 00 
427b 



4.? 78 

427* 
42*0 
4281 
4282 
4283 
4264 
42tfS 

428 * 
428o 
428* 
4290 

42*1 

42*2 

42^5 

4294 

429S 

4296 

4297 

42t0 

4299 

4300 

4301 

4 302 

4303 

4 304 

4 305 

4 306 

4 30 7 

4308 

4309 

4310 

4311 

4512 

4313 

4314 

431S 

4316 

4317 

4518 

4319 

4 320 

4321 



C2 



/RCHHO RC2S DISK U1RMA1TER 
MODULE DECLARATIONS 



5 Apr 1984 13:46:^4 
ll-Jsn-1984 13s23:l? 



VAX 11 HI Ins 16 V3 555 
SPIDFR*USF.RSi[NK ALE, AZTEC URCHB5 



SF.Q 0222 

Page 7H 
fU6;4 (?2) 



[a] 



begin 
STFP VAL 
TO _ VALUE 
endj 



Ko'0100' j 
5000 1 



13] 



begin 

STFP VAL 

TO VALUE - 5000 j 

end i 



*b' 1000' j 



.•Step 3 binary value 

! Timeout step 3 for 10 seconds 



.♦Step 4 binary value 

J Timeout step 4 for 10 seconds 



tes; 



! Loop on the 100 micro second delay until either the expected step Field 
! 5s read in the SA register or the step times out, 



incru TIMEOUT from to , TO^VALUE do 

beg i n 

DELAK CC_US)j 
t 

Check the step bit to see if It is set yet. If it is set then return 
a false indicating the completion else continue delaying. 



!Loop on C..US delay's 
•Do the delay 



f .RC25.ADDR (RCSA, STP_FIEID] eqlu .STEP VAL then return i'ALSEi 



BREAK j 



IService any control C's 



• This step has not completed within the specified time Interval. Test 
» the so register for any errors posted and report errors if any. Return 
! a true to the caller indicating the error. 



if .RC25 ADDR [RCSA, ERR BIT) 
then 

RE?' STATUS • PFE_C0DE; 
DECODE ( )i 

return TRUE j 
end; 



!la the error bit »*et 



•Indicate the port/fatal error code 
{Report the error 



IReturn a failure to the caller 



000000 00416/ O00000G 



000004 
000010 
000012 
000016 
000020 
0000^4 



162/06 
005002 
016600 
001005 
012/02 
OliZ 703 



000006 

000022 

OOO'KU 
04 7040 



.SB ML 


IS. TIMER 


IS. TIMER:: 




JSR 


Rl, SSAVF4 


SUB 


06 , SP 


CI R 


R2 


MOV 


*>2(SP),R0 


HNfr 


1* 


MOV 


01, H2 


MOV 


047O4O.R3 



j STtP.VAl 

\ SF.Q. NO,* 

I ♦, STtP.VAl 

i *, TO. VALUE 



42 1*» 

42'*' 
42M 

4 t >, t . 
4^0 '* 



I),' 



I'RCHBS 

REV n PATCH 



00 



000050 
0000?.? 

000036 
000040 
000044 
000046 
000052 
000054 
000060 
000062 
000066 
000070 
000074 
000100 
00010c? 
000104 

000110 

000112 

000116 

000120 

O00124 

000126 

000130 

000132 

000134 

000140 

000146 

000150 

000154 

000156 

000160 

000162 

000164 

000170 

000172 

000174 

000176 

000200 

000202 

000204 

000210 

00C214 

000216 

000224 

000230 

000234 

000236 

000240 

000244 



000423 
02002 7 
>01003 
v/12 702 
000413 
020027 
001003 
012702 
000405 
02002 7 
001004 
012702 
012703 
005004 
0004 36 
012701 
001411 
016700 
001404 
005066 
005300 
001374 
005301 
000766 
016700 
016066 
010201 
016600 
006200 
006200 
006200 
000300 
042 700 
020001 
001421 
104422 
005204 
020403 
10W40 
016700 
016016 
100005 
012767 
004 76 7 
012700 
000401 
0050OO 
062 706 
00020 7 



/RCHHO RC25 DISK MWMATTFR 
MODULE DECLARATIONS 



000001 

000002 

000002 

000004 

000003 

000010 
011610 

000001 

OOOOOOG 

000004 



OOOOOOG 
000002 000002 

000002 



177760 



OOOOOOG 
000002 

000021 OOOOOOG 

171352 

000001 



000006 



ER 




5 Apr 1964 13:46:24 
ll-Jan-1984 13:23:12 




RR 


5$ 


15: 


CMP 


R0.01 




BNE 


2$ 




MOV 


02, Ri? 




BR 


4$ 


2$: 


CMP 


R0.02 




BNE 


3$ 




MOV 


04, R2 




BR 


4$ 


3$: 


CMP 


RO, 03 




BNE 


5$ 




MOV 


010.R2 


4$: 


MOV 


011610, R3 


5$: 


CLR 


R4 




BR 


11$ 


6$: 


MOV 


01, Rl 


7$: 


BEQ 


10$ 




MOV 


L$0LY,R0 




BEQ 


9$ 


8$; 


CLR 


4(SP) 




DEC 


RO 




BNE 


8$ 


9$: 


DEC 


Rl 




BR 


7$ 


10$: 


MOV 


RC25.ADDR,R0 




MOV 


2(R0),2CSP) 




MOV 


R2.R1 




MOV 


2(SP),R0 




A5R 


RO 




ASR 


RO 




ASR 


RO 




SWAB 


RO 




BIC 


01/7760,RO 




CMP 


R0,R1 




BEQ 


13$ 




TRAP 


22 




INC 


R4 


lit: 


CMP 


R4.R3 




BLOS 


6$ 




MOV 


RC25.ADDR.R0 




MOV 


2(R0),(SP^ 




BPL 


12$ 




MOV 


•PI .RET .STATUS 




JSR 


PC, DECODE 


12$: 


MOV 


01, RO 




BR 


14$ 


13$: 


CLR 


RO 


14$: 


ADD 


06 , SP 




RTS 


PC 



SEQ 0223 
VAX -11 Bl i«»i»- 16 V3 555 Page /9 

SPIDER$USERS;[NEALE.A/TECURCHB5.B16j4 (22; 



j *,5TEP,VAl 

I 

J 

I *,STfc.P,VAL 
1 

{ 

{ ♦ ,5TH\WU. 

5 ♦, TO. VALUE 

I "IN, OUT 

j <• , i « * MP2 

I *,$$TMP1 

j $ $ mp 

; $$TMP1 

j $$TMP2 

i 

{ *,RC$S.RF(. 

I STEP. VAl . * 

} RC$S.REG,* 



j TIM. OUT 

; TIM. OUT. TO. VALUE 

I 

i *,RC$S.RtG 



4261 



42/2 
427 5 
4261 

42/8 
4279 
4261 

4284 

4285 
4294 

4296 



4 302 



4294 



4313 



4 31* 
431 " 
4 2 SO 

4219 



Rout ine 
Max i mufti 



S i /e : 
stock 



85 words, Routine ttase: AC$C00b ♦ 6602 
depth per invocation: 10 wordy 



4 32 



K 2 



ZRCHB5 

REV B PATCH 00 

4323 

4 324 
4325 

4326 

432 7 

4328 

4 329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4 34 7 

4348 

4 349 

4350 

4351 

4 352 

4353 

4354 

4355 

4 356 

4 35 7 

4358 

4359 

4 360 

43bl 

4362 

4363 

4 364 

4 365 

4 366 

436/ 

4 368 

4 369 

4 3/0 

4371 

4 3/2 

4373 

4 3/4 

4 3/5 

4 5/6 

a 3 / / 

4379 



ZRCH60 RC25 DISK FORMATTER 
MODULE DECLARATIONS 

global routine B00T_RC25 - 



5 Apr-1984 13;46:24 
Xl-Jan-1984 13;23:12 



VAX-11 Bliss 
SPIDERJUSERS 



SF.Q 0224 
16 V3-555 Page 80 

[NEALE.AZTEC]ZRCHB5.B16j4 (23; 



! Performs RC25 in it sequence 



Functional Description « 

This routine performs the initialization sequence of the RC25 
RC25 controller. 

The Initialization procedure serves to; 

1. Identify the parameters of the host -res i dent communications 
region to the port. 



Provide 



confidence check of port/controller integrity. 



3, Bring the port/controller online to the host (note that the 
devices attached to the controller are not thereby brought 
online to the class driver,) 



Tormal Paronveters 
none 

Implicit Inputs : 
ISD_STRUCT 



Implicit Outputs 
none 



Stores the in it sequence read and write data defined 
for this program and controller. 



Completion Codes : 

Success: Is returned to the calling routine if this initialization 
sequence was executed successfully. 

Failure: Is returned to the callng routine if this Initialization 
sequence was not executed successfully. 

Side Effects : 

Any DM code that might have been running in the DM machine will be 
aborted. 

Any outstanding commands or response pertaining to a process using 
the controller will be lost. 



begin 

locnl 

TEMP 



word} 



! Temper ory storage location 



The host begins the initialization sequence 
either by issuing a bus in it or by writing 

any value into the IP register} the port must 
guarantee that the host will read zeros in 5A 
on the next bus cycle. Initialization then 
sequences through utepa 1-4 as per UQSSK OGC 
Version 1,5, 



7RCHB1S 

REV B PATCH 00 



4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4 390 

4 391 

4 39? 

4 393 

4394 

4395 

4 396 

4397 

4398 

4 399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

440/ 

4408 

44 09 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

44^1 

4422 

4423 

4424 

4425 

4426 

442 7 

4428 

4429 

44 30 

44 31 

44 3? 

4453 

44 34 

44 35 

4436 



ZRCHBO RC25 DISK FORMATTER 
MODULE CECLARATIONS 



?. 



5-Apr-1984 13j46j24 
11 -Jan -19*54 13;23{12 



VAX-U 8liss-16 V3-555 



SEQ 0225 

Page 



SPIDbR*USERS;[NEALE,AZTEC]2RCHB5.616;4 (23) 



81 



J Write to the IP register and start the init 
! sequence going. 



WRT..RC25 (RCIP, ONES)} 



! Beg in init sequence 



This incr loop performs all four steps of the 
initialization sequence described above. The 
SA write and read data is preset into the 
structure ISD^STRUCT and stands for 
"Initialization Sequence Data^STRUCT", 



If a step time out error occures the test 
Invoking this routine will take the necessary 
retry procedure. A return code of failure is 
returned. 

If any SA register compare error is detected after 
a step completion the routine Decode will decode the 
error and load statistical tables up pertanote data 



!Do the four in it seq steps 

Wait for the controller to load the SA reg up with the step data. 



incru SEQ ..NO from STEP! to STEP4 do 
begin 



if IS TIMER ( .SEQ_.N0) 
then 

begin 



♦Did the Controller time out 



! DO SOME STAT TABLE UP DATA TO SHOW THE TIME OUT 



PRINTB ( .EMSG. STRUCT [MSGlODi 

return FAILURE} 

end} 



■Notify DRS> init of the failure 



The controller did not time out so read the SA register 
for the expected step data and compare it to the good 
data stored in l'SD_STRUCT. 

If the read SA data is not what we expect then return a 
fai lure code . 

Note that the reserved fields read in the SA register ore 
or'ed with all ones to mask out tne field before compared 
to the expected data stored in the structure " I SI) STRUCT " . 

TEMP • (CRC25.ADDR [RCsA, RC ALL ]) or C . RSVO . STRUCT I. SEQ . NO m i 

if . Ifc'MP nequ .ISO. STRUCT [.StU.NO, ISRD, 1SR..AIL] {Compare read to expected 

then 



G2 



/RCHB5 

REV B PATCH 00 



4437 
4438 
4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

444 7 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

445b 

4457 

4458 

4459 

4460 

4461 

446? 

4463 



ZRCHRO RC?5 DISK FORMATTER 
MODULE DECLARATIONS 

begin 



SF.Q 0226 
5 -Apr 1984 13:46:24 VAX-11 Bliss-16 V5-5S5 Page 82 

ll-Jan-1984 13}23:12 SPIDER$USERS ;[ NEALE .AZTEC JZRCMB5.B16 ;4 (23"; 



Load some sat ist leal table up with some data to indicate that the 
init sequence had some trouble. 



PRINTB (,EMSG STRUCT [MSG11])| 

return FAILURE: 

end} 



♦Return a Failure code 



! If this is step four then print this u code version number, 
j 

If ,SEQ_N0 eqlu STEP4 then PRINTB (FMT4, ,RC25_ADDR CRCSA, S4R_VER]); 

This step read data is what we expected so w-ite the SA register 
with this steps write data stored in ISD„STRUCT, 

WRT.RC25 (RCSA, ,I5D„STRUCT [.SECLNO, ISWRT, ISW_ALL])j 
endj 

i 

! The controller initialization sequence was done successfully so return o success code, 
I 

return SUCCESS? 
end; 



000000 004167 000000G 



000004 
000006 
000012 
000016 
000020 
000022 
000026 
000030 
000032 
000034 
000040 
000044 
000046 
000050 
000052 
OOOOSfc 

000064 
000066 
0000 70 
0000 /4 
000100 
000102 
000104 
000 1 06 
U0QU2 



024646 
012/00 
01007/ 
005002 
010246 
004/67 
005/26 
006000 
103007 
016/46 
012746 
010600 
104414 
00042/ 
016/00 
016066 
010200 
006300 
016603 
05600 3 
010201 
006301 
036301 
020^61 
QQ1410 



OOOOOOG 



177504 



000024G 
000001 



OOOOOOG 
000002 000002 



000002 
OOOOOOG 



OOOOOOG 





.5BTTL. 


B00T.RC25 MODULE DEC 


BOOT 


.RC25: : 






JSR 


R1.ISAVE3 




CMP 


- ( 5P ) . ( SP ) 




MOV 


0-l.RO 




MOV 


R0,3RCt'S ADDR 




CL.R 


R2 


1$: 


MOV 


R2 . ( SP ) 




JSR 


PC, IS, TIMER 




TST 


(5P)» 




ROR 


RO 




BCC 


2* 




MOV 


EMSG. STRUCT *24, -(SP) 




MOV 


«l. (SP) 




MOV 


SP.RO 




TRAP 


14 




BR 


3$ 


2$: 


MOV 


RC25.AD0R,R0 




MOV 


2(R0),2(SP) 




MOV 


R2.R0 




ASl. 


RO 




MOV 


2(SP),R3 




HIS 


RSVD.STRUCT(R0^.R3 




MOV 


R2.R1 




ASl 


Rl 




ASL 


Rl 




CMP 


R^.lSD.SIWUtURl ) 




BEQ 


45 



*,KC$M.REG 
RCiM.REG,* 
SF.Q.NO 
SF.U.NO,* 



{ SP,* 



i *,RC* S.REG 
i SEU.NO,* 

j RCiS. REG. TEMP 
i *.TFMP 

I seu.no,* 



4323 
4 384 

4405 

4411 



441 



44U 
4433 



44 35 



, TEMP,* 



/RCHB5 

RtV B PATCH 00 



000114 
000120 
000 124 
000126 
000130 
000132 
000134 
000140 
00014? 
00014o 
000152 
00C154 
000160 
000164 
000170 
00017? 
000174 
000200 
000204 
000210 
000214 
000216 
000222 
000224 
000230 
000232 
000234 
000236 



016746 

012746 
010600 
104414 
022626 
0004 37 
020227 
00101/ 
016700 
016016 
011646 
042716 
012746 
012746 
010600 
104414 
062/06 
016101 
016700 
010160 
005202 
020227 
l0l*-/6 
012/00 
000401 
005000 
022626 
000207 



2RCHR0 
MODULE 

000026G 
000001 



RC2S DISK HIRMATTtR 
DECLARATIONS 



000003 

OOOOOOG 
000002 

177 760 

OOOOOOG 
000002 



000006 
000002G 
OOOOOOG 
000002 

000003 

000001 



LR 




5 -Apr -1934 13:46:24 






ll-Jan-1984 13:23:12 




MOV 


EMSG. STRUCT *26, -(SP) 




MOV 


01.-($P> 




MOV 


SP.RO 




TRAP 


14 


3$: 


CMP 


(5P)*,vSP)* 




BR 


65 


4$: 


CMP 


R2,03 




BNt 


5$ 




MOV 


RC25.ADDR,R0 




MOV 


2CR0) t CSP) 




MOV 


CSP).-(SP) 




BIC 


</17 7/b0,CSP) 




MOV 


0KHT4, (SP) 




MOV 


02 , - ( SP ) 




MOV 


5P.R0 




TRAP 


14 




ADD 


06, SP 


5$: 


MOV 


ISD.STRUCT»2(R1),R1 




MOV 


RC25.ADDR.R0 




MOV 


R1.2CP0) 




INC 


R2 




CMP 


R2.03 




Bl.OS 


H 




MOV 


01, RO 




OR 


7$ 


6$: 


CL.R 


RO 


/$: 


CMP 


(SP)»,(SP)» 




RTS 


PC 



fjEQ 0227 
VAX-11 BlIsi-16 V3 555 Poae 85 

SPIDBR*USLRS:tNEALt,A/TEC]/RCHBb.B16;4 (23; 



I SP,* 



j SEQ.NO,* 



; *.RC*S.RtG 
5 RCJS.REG,* 



5 SP,* 



♦.RCJM.RrG 
RC*M.Rht;.* 

sfu.no 

SEQ.NO,* 



4442 



44 5b 
44 37 
4450 



4 456 

4405 

4 366 
4323 



Rout I ne 5 I re : 
Ma* Imum stock 



80 words, Routine Base: AC$CODL * 7050 

dept'i per Invocation: 11 words 



4464 



If 



/RCHHS 

REV B PATCH OC 



4465 

4466 

4467 

4468 

4469 

44 ,'0 

44 71 

44 "JV 

447? 

44 74 

44 ;s 

44 /«» 

44 77 

44 /8 

44 7 9 

4480 

4481 

448. * 

44 B 3 

4484 

448S 

448b 

448/ 

4488 

4489 

4490 

4491 

449, 1 

4493 

4494 

449S 

4496 

449/ 

4498 

4499 

4S0O 

4S01 

4 SO.? 

4 SO 5 

4S04 

4 SOS 

4 506 

4 SO/ 

4 SOB 

4S09 

4S10 

4S11 

4S1.J 

4S1 *, 

4S14 

4S1S 

4S16 

4S1 / 

4MH 

4S1'* 

4S/0 

4W1 



ZRCHBO RC^S DISK K)RMATTF.R 
MODULfc DECLARATIONS 

global routine INIT ..COM. AREA » 



5 -Apr -1984 13:46:24 
HJon-1984 13:23:12 



VAX-11 Bliss 
SPIDER $USERS 



SEQ 0228 
16 V3-5SS Page 84 

[NEALE.A/TECJZRCHBS.B16;4 (24) 



■Tnits DUP Protocol commumlcat I on area 



Functional Description : 

After ini t ! al i zat ion step 3 the port controller clears out 
the communication area's ring buffers. 

This routine first makes sure that this protocol is accom- 
plished by the port before proceeding. 

If the port did its part of the protocol then the communic- 
ations ar^a is initialized as follows: 

1, Defines from the contigious data storage structure 
"C0M_AREA" the header area address. receive ring 
address and the send ring address (these structures 
are initially declared as reference structures and 
require an address to be defined as its value per 
BLISS language conventions). 

2, Clears the interrupt indicators and adaptor purge 
(ring base -1, -2. -3, -4) defined as "HEAD .AREA" . 

3, Loads the receive and send descriptors with the values: 

a. Envelope low, high and CLbus address 

b, Reserved field 

c , Tlag bi t 

d. Ownership bit 

4, load the receive envelope message length field with the 
buffer size in bytes. 

5, Initial i/e the Outstanding command buffer to reflect 
that all slots are unused, 

Formal Parameters : 
none 

Impl ic i t Inputs : 

HI AD AREA, RECEIVE ..RING , SEND .RING, CUM AREA 

Implicit Outputs : 

The communication area as a result of this routine will be initialized 
fur host program to remote program communications per DUP and 
UOSSP specifications. 

Completion Codes : 

TRUE} Error code to indicate the port controller has 
not fullfilled its part of the DUP protocol. 

F'ALSE: An error code to indicate the port controller 
Kes fullfilled its part of the UUP protocol. 

Side Ef tects : 
none 



J, : ' 



ZRCHU5 

REV B PATCH 



00 



4523 
45/4 

45*>5 

45Jb 

«\5,'/ 

4W8 
45/9 

4530 
4551 

453/ 

4533 
4534 
4535 
4536 

453/ 

4558 

4559 

4540 

454 1 

454/ 

4545 

4544 

4545 

4546 

454 ? 

4548 

4549 

4550 

4551 

4 55/ 

4553 

4554 

4555 

4556 

455/ 

4558 

4559 

456U 

4561 

456/ 

4565 

4564 

4565 

4566 

456/ 

4568 

4569 

45/0 

4571 

4572 

4573 

45 74 

4575 

45 76 

45/7 

457d 



ZrtCHOO RC.?5 DISK UJRMATTER 
MOOU.F DECLARATIONS 

begin 



5 Apr 1984 13:46:?4 
ll-Jan-1984 13;23:i2 



5EQ 0229 
VAX 11 Bliss 16 V3 555 Page 85 

SPIDER $USERSj[NEALE., AZTEC 3ZRCHB5.B16; 4 ( ?A j 



Make sure that the controller has don* its part of 

tt ters. 
;um with 



Make sure that the controller has don* its pi 
the Di.iP protocol by clear* ;ng out the ring bu< 
If the rings are not cleared out then returr 



an error code o^ true, 

ncru J from / to RING^SI/E 1 do 
Jncru j from WRDO to WRD1 do 



jTest all blocks for zeros 
JTest all word*; for zeros 



Test this word for zeros. If not zeros then e\it 
this routine with an "commun » cot 5 on area »n»t'' 
error code to indicate the Protocol violation. 

if .COM AREA [.i, .j, W0RD.REF') nequ ZERO then return CIE„C0DE| 



Tne port did Its part of the protocol so now 

define the address locations of 1 he Hf.AD AREA, 
RECEIVE RING and SEND RING from tne contigious 
storage declared by COM.AREA. 



HEAD AREA - COM AREA; 

RECEIVE RING - COM AREA [REC.BASbh 

SEN0 RING - COM ARE/* ( SN0 BASE h 



» ♦ 

! Not Quite sure if the port has to c le*r out 
! the header area of the communications area 
•so I'll clear it out here just in case. 



•Define 


the 


Header area 


•Define 


the 


receive ring area 


!Def ine 


the 


send ring area 



incru i from WRD0 to URD? do 

HEAD_AREA [,i, WORD. REM - ZEROS s 



Load up the Send Rinyj descriptor-* with an envelope address, 
define the "F lag bit'' to ■ 1 ( interrupt requested), def ine 
the "Ownership bit" to "0 (owned by host) and load the 
Reserved field with zeros (per DUP spec). 



ncru i from to SNO _ ALLOCATE • 1 do 



begin 
SEND RING 
SEND RING 
SEND RING 
SEND RING 
SEND RING 

siNojuhb 

end* 



[ 



L0_EN*AD] 
HI ENIAD] 
QB EXT] - 
DIRSVDJ - 
R AG BIT J 



- SNO fcNVE'.OPfc 

• ZERO; 

ZERCj 

ZfcROs 

SF l.HUi 



I 



CMD ,L RE* 1 1 'low -order envelope adress 'or all sys 



QwKQXU » HQST.OUNtDi 



{High order portion of an 18 b't U-'Q bus adrs 

} Q .bus extent ion 

JReserved field 

H lag b«t whose meaning varies depend > ng o^ *4t»C ttttttc 

I Indicates whether* dsc is host or met owned 



K 



r 



ZRCHB5 

REV B PATCH 00 



4579 
4530 

4561 

4583 

4563 

4584 

458 l > 

4586 

4587 

4588 

4589 

4590 

4591 

4593 

4593 

459< 

4595 

4596 

459 7 

4598 

4599 

4600 

4601 

460? 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

46 12 

4613 

4614 

4615 

4616 

461/ 

4619 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

462/ 

4628 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 



5-Apr-1984 13j46;24 
U-Jan-1984 13:23il2 



5EG 0230 
VAX-11 Bl 199-16 V3 555 Page 86 

SPIDER$USERSi[NEALE.AZTEC}ZRCHB5,B16}4 (24; 



* 



! Load up the Receive Ring descriptors with an envelope 

! address, define the "Ownership bit" - 1 (owned by port), 

! define the "Flag bit" to ■ 1 (Interrupts requested) and 

J the reserved field set to zeros (, .-r DUP spec), 



i 



ncru i from to REC_ ALLOCATE - 1 do 



begin 

RECEIVE _RING [ 
RECEIVE_RING [ 
RECEIVE RING [ 
RECEIVE RING [ 
RECEIVE RING [ 
RECEIVE^RING [ 
end} 



LO EN$AD] 
HI_EN*AD] 
QB„EXT] - 
DIR5VD1 - 
FLAG BIT] 
OWN.BIT] 



- REC.ENVELOPE [ 

- /EROS; 
ZEROS} 
ZEROS} 

- SET„M.Gj 

' P0RT_0WNEDj 



, CMD_LREF]| 



Reset the communications area pointer to the • r initial state. 



NRD .SLOT - • 1: 
NSD SLOT - 1; 
NXT CRN - ZERO; 



!5tart ring pointer at :cro 
! Start ring pointer at zero 
! Start unique cmd ref num at one 



! Set the response envelope me sage length size equal 
! to the buffer size in byte« starting at text » 0. 



incru i from to RF.C.Al LOCATE 1 do 

RF.C ..ENVELOPE [.J MSCLENGTH) « RB_SIZE*2} 



{Convert to bytes before loading 



In it the outstanding command buffer as follows: 

1. Indicate that ail slots ire unused by loading 
the unique value *o' 100000' . 

2. Clear the envelope adrs wo^ds to zero, 

ncru i from to REC_ ALLOCATE - 1 do 
begin 

0UT$STD BUT [.i, CMD WRDJ - *o' 100000* } 'Define the slot as unused 
OUMSTD^BUF [,i, ENV_ADR] * ZERO} -Clear out the envelope adrs field 
end} 

No errors detected by this rout'ne so return with an non -error code of false 

return PAS ..CODE} 
ends 



000000 00416 7 000000G 



00<X>U4 

000010 



012/01 
005002 



000004 



. SBTTL 

IN1T.COM. ARE At 
JSH 
MOV 

1 t i CLR 



INIT.COM, AREA MODULE DECLARATIONS 

Hl.tSAVfc.3 i 

<>4,R1 : 

R2 | 



4V<1 
4533 



1.2 



ZRCHB5 

REV B PATCH 00 



0000 IP 

000014 

000016 

000020 

000024 

000026 

000032 

000034 

000036 

00004? 

000044 

000050 

000054 

000056 

000064 

00007? 

000100 

000102 

000104 

0001 10 

000112 

000116 

000122 

000124 

000126 

000130 

000132 

000134 

000136 

000142 

000144 

000150 

000154 

000160 

000162 

000164 

000170 

0001/4 

000200 

000202 

000204 

000210 

000212 

000214 

000216 

000220 

000222 

000224 

000230 

000232 

000234 

0002 Sr, 

000240 

000242 

000246 

000252 

000254 



010100 

060200 

006300 

005760 

001403 

012700 

00020 ? 

005202 

020227 

101763 

062701 

020127 

101755 

012767 

012/67 

012767 

005000 

010001 

066701 

005011 

062700 

020027 

101767 

005003 

010301 

006301 

006301 

010102 

066702 

010346 

012/46 

004 /6 7 

062700 

010012 

010100 

066 700 

062 700 

012/10 

022626 

005203 

02032/ 

101746 

005002 

010201 

006301 

006301 

010103 

066/03 

010200 

000300 

106000 

006000 

006000 

142/00 

062 /OO 

010013 

010100 



ZRCHBO RC25 DISK KJRMATThR 
MODU' E DECLARATIONS 



2$ 



OOOOOOG 
000001 

000001 

000002 
000022 

OOOOOOG OOOOOOG 
0O001OG OOOOOOG 
000030G OOOOOOG 



OOOOOOG 

000002 
000006 



3$ 



4$ 



5$j 



OOOOOOG 

000054 

OOOOOOG 

000004G 



OOOOOOG 

000002 

040000 



000003 



6${ 



OOOOOOG 



0000 > ' 
00C004G 





5-Apr 


-1984 


13; 46; 24 


vax-i: 




11-Jan 


-1964 


13s23:12 


SPIDEF 


MOV 


Rl.RO 






J I,* 


ADD 


R2.R0 






l J,* 


ASL 


RO 








TST 


COM.AREA(RO) 








BEU 


3$ 








MOV 


41, RO 








RTS 


PC 








INC 


R2 






J J 


CMP 


R2.41 






J J,* 


BLOS 


2$ 








ADD 


02, Rl 






; +.1 


CMP 


Rl, 422 






5 I.+ 


BLOS 


1* 








MOV 


OCOM. AREA .HEAD 


.AREA 




• 


MOV 


4C0M. AREA ♦ 10, RECEIVE. RING 


! 


MOV 


4C0M.AREAf30.SEND.RING 


t 


CLR 


RO 






I I 


MOV 


R0,R1 






} I,* 


ADD 


HEAD. ARE A, Rl 








CLR 


CR1) 








ADD 


42, RO 






J ♦,! 


CMP 


RO.06 






i I.» 


BLOS 


4$ 








CLR 


R3 






; I 


MOV 


R3,R1 






j I.* 


ASL 


Rl 








ASL 


Rl 








MOV 


R1.R2 








ADD 


SEND. RING, R2 








MOV 


R3.-CSP) 






s I.* 


MOV 


454, -CSP) 








JSR 


PC.BLtMU 








ADD 


4SND. ENVELOPE* 


4.R0 






MOV 


R0.CR2) 








MOV 


Rl.hO 






j 


ADD 


SEND.RING.RO 








ADD 


42, RO 








MOV 


440000, (RO) 






■ 


CMP 


v SP ) ♦ , ( SP ) ♦ 






» 


INC 


P3 






; I 


CMP 


R3.43 






; I.* 


BLOS 


5$ 








CLR 


R2 






j 1 


MOV 


R2.RI 






i 1.* 


ASL 


Rl 








ASL 


Ml 








MOV 


H1.H3 








ADD 


m a IVE.RING.R3 






MOV 


R2.R0 






j 1.* 


SWAB 


MO 








RORB 


RO 








RUR 


RO 








ROR 


RO 








BICB 


4 7/,R0 








ADD 


4Ht-C. ENVELOPE* 


4.R0 






MOV 


R0,(R3) 








MOV 


Ri.RO 






i 



SF.G 0231 
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SP IDER $ USERS : [ NEALE . AZTEC ) ZRCHB5 , B 16 ; 4 ( 24 ; 



4533 



4531 



4 54 9 
455C 
4551 
4559 
4560 



4559 



4 569 
4571 



4572 



45/6 
45.'0 
4569 



45^i 
4568 



45tW 



M2 



zrchb:> 

rev b patch 00 



000256 
000262 
000266 

0002 /2 
000274 
000500 
000502 
000510 
000516 
000522 
000324 
000332 
000336 
000542 
000544 
000546 
000554 
000360 
000364 
0005 ?0 

0003 72 
000374 



066 700 

062700 
012710 
005202 
02022/ 
101745 
012767 
012767 
105067 
005000 
012760 
062700 
020027 
101770 
005000 
012760 
005060 
062700 
020027 
101766 
005000 
000207 



ZRCHBO RC25 DISK FORMATTER 
MODULE DECLARATIONS 

OOOOOOG 

000002 

140000 

000003 

177777 OOOOOOG 
17 7777 OOOOOOG 
OOOOOOG 



000074 
000100 
000300 



OOOOOOG 



100000 OOOOOOG 

000002G 

000004 

000014 



7$ 



8$ 



Routine Si/e: 127 words, Routine Base: 
Maximum stock depth per invocation? 7 words 





5 -Apr -1984 13 


46 


24 VAX-11 B 




11 -Jan -1904 13 


23 


12 SPIDER5U 


ADD 


RECLIVE.RING.RO 








ADD 


02.R0 








MOV 


0140000, CRO) 








INC 


R2 






I 


CMP 


R2.02 






I.* 


BLOS 


6$ 








MOV 


0-1. NRD. SLOT 








MOV 


0-1, NSD. SLOT 








CLRB 


NXT.CRN 








CLR 


RO 






I 


MOV 


074.REC.ENVEL0PECR0) 






♦,♦(1) 


ADD 


0100. RO 






*.I 


CMP 


R0.0300 






r,* 


BLOS 


7$ 








CLR 


RO 






i 


MOV 


0~ 100000, OUT $STD.BUF(RO) 




♦ .♦(i) 


CLR 


0UT$SrD,BUF*2(R0) 






♦ en 


ADD 


04 .RO 






*.i 


CMP 


R0.014 






i.* 


BLOS 


6$ 








CLR 


RO 








RTS 


PC 






• 


AC$CODE 


* 7310 









SEQ 0232 
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SPIDER JUSERS ; I NEALE , AZ TEC ] /RCHB5 . B 16 j 4 ( 24 j 



459: 



4586 



4599 
460G 
4601 
4608 
4609 
4608 



4618 
4620 
4621 
4618 



4S22 
4465 



4629 
A 630 
4631 
4632 



end 
eludom 



UTS external references 

.GLOBE SSAVE4, $ SAVE 3, SSAVE2, Hl.SMUl. 



PSECT SUMMARY 



Pfiec t Name 
AC* CODE 



Words 
2019 



Attr ibutey 
RO . I 



LCI. 



REL 



CON 



LIBRARY STATISTICS 



File 
SPlDfciUUSERS; INfcALE. AZTEC URCHBO. Lib i2 



'jymbols 
Total loaded Percent 



Biod-s 

Rend 



398 



2/8 



69 



_>:> 



N? 



76 



,'RCHHS 

REV PATCH 



00 



ZRCHBO RC2b DISK FORMATTER 
MODULE DECLARATIONS 



5-Apr-1904 13:46;24 
11 -Jan -1984 13:23jl2 



SEQ 0233 
VAX- 11 Bliss- 16 V3-555 Page 89 

SPIDER$USERS:fNEALE.AZTEC]ZRCHB5,B16;4 C24"; 



COMMAND QUALIFIERS 



BLISS /PDPn/L.IST ZRCHBS,B16 



Si'/e: 2019 code * 
Run lime: 01 : 26.0 
I. lapsed T J me: O r >:03.3 
Memory Used: 26 7 pages 
Compilation Complete 



data words 



(33 



7RCH8 7 



0001 

0002 

0005 

0004 

0005 

0006 

000 7 

0008 

0009 

0010 

0011 

0012 

0015 

0014 

0015 

001b 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

15.?; 

1528 
1529 
1530 
1531 

1532 

1533 
1534 
1535 
1536 
153; 
1538 
15 39 
1540 
1541 
1542 
154 5 
1544 
1545 



ZRCH80 RC25 DISK FORMATTER 



5-Apr-1984 13:51:39 
23 Sep -1983 14 {16:03 



VAX- 11 Bliss 
SPIDEFHUSERS 



SEQ 0234 
16 V5 555 Page 

[NEALE,AZTEC]ZRCHB7,B16i2 (1) 



MODULE ZRCHB7 



(#TITLE ZRCHBO RC25 DISK FORMATTER 
IDENT • 'REV B PATCH 00' , 
ADDRESSING MODE (RELATIVE), 
ENVIRONMENT (NOEIS)) • 



BEGIN 

HSBTTL 'LAST ADDRESS AND SETUP SECTION' 
Pretty Declarations 
<bl f/ lowercase _key> 



LIBRARY '/RCH80' t 
REQUIRE 'BLSMAC.REQ' j 



•Define RC25 Formatter library 
{Define Bliss macro require file 



The LASTAD macro must be the final statement (except .end) in a pro 
gram. The call generates an even address reflecting th^ first word of 
memory unused by the program, 

LASTAD 



HardcodeU P- TABLES 

These optional hardware P- TABLES are located (when present) between 
the "LASTAD" macro and the ".ENO" statement. Th*se hardware PTABl.iS 
are above and h* v ond the default hardware P-TABi £ located in the main 
body of the program. These P TABLES wind up appended to the BIN file 
of the dia^ostic. just as though the supervisor or the "St TUP" utility 
had built them there, Thus the diagnostic can be "pre -parameter l/ed'* 
by the programmer. 

If this hardcoded P TABLE section !s not wa iteJ then define "nymbsr'" in 
the BGNSETUP macro to zero and omitt BGNTAU xr># END TAB macros* 

Coalng sample is as follows; 
LAST An 

BGNSETUP (Number) 

BGNPTAB 
(DATA) 
(DATA) 
(DATA) 
E NOP TAB 

BGNPTAB 

(DATA) 
( DA T A ) 
(DATA) 
ENDPTAB 



•Number of P« TABLES 



ZRCHB .' 

REV B PATCH 00 



1546 
1547 
1548 
154* 
1550 
1551 
1552 
1555 
1554 
1555 



ZRCHBO Rd>5 DISK HlRMATTf-R 
LAST ADDRESS AND SETUP SECTION 

END SETUP 

.END 

BGNSETUP (0)j 



No optional P. Tables are defined 
within this program. 



C3 



5 Apr 1984 lSjfiljW 
23-S«p-19H3 14U6i03 



SF.Q 0? r > r > 
VAX 11 Bliss -l'» V5 555 Page ? 

SPIDER IUSERS s [ NE ALE, AZTEC )ZRCHB/.B 16 i? CI) 



ENDSETUP 



.TITLE ZRCHB7 ZRCHBO RC25 DISK FORMATTER 
.IDENT /REV B / 



oooooo 

000000 



000004 ' 



000004 OOOOOO 



.PSECT 
BLJLASi : .WORD 

.WORD 
TJFREEsj.WORD 



IXYZ*. RO 

T$FREE 

<<T*FREE-<BL*LAS»4W t ?> 





000004 * 
OOOOOO 



L$LAST»- 
T$PTHV- 



BL*LAS»4 




OOOOOO 000207 



■ SBTTl. IFNO.LINK LAST ADDRESS AND SETUP SECTION 
JEND.LINK: : 

RTS PC ; 



1504 



: Routin* Si .re: 1 word, Routine Base: *XYZ* ♦ 0006 
; Maximum stack depth per Invocation: words 



1556 END 

1557 ELUOOM 



PSECT SUMMARY 



Psect Name 
SXY/S 



Words 
4 



Attributes 

RO , I 



LCI.. RbL, CON 



Fi le 
SPIDER*U5ERb:lNEAU, AZTEC 1ZRCHB0.L1612 



LIBRARY STATISTICS 
Total 
396 1 



Symbols • 

Loaded Percent 







Block-, 
Read 



15 



/RCHB/ 

REV B PATCH 00 



D 



*) 



/RCHUO RCJ5 DISK K1RMATTER 
LAST ADDRESS AND SETUP SECTION 



5 Apr 1964 15:51 j 39 
«?3*5ep-19«3 14:16:03 



SF.Q 0236 
VAX-11 Pliss-16 V3 555 Page 

SPIDER$USERSslNEALE.AZTEC]ZRCHB7.EJ16;2 (1) 



COMMAND QUALIFIERS 



BLISS /P0P11/LIST ZRCHB7.BI6 

Sljre: 1 code ♦ 3 data words 
Run T i me : 00 : 06 . 5 
Elapsed Time: 00:38.1 
Memory L'sed: 99 pages 
Compilation Complete 



^RCHB.tXf Memory 



al locat 1 on 
5-APR-84 



map 1KB 
13:53 



M40.02 



Page 1 



b/5 



SEQ 0237 



Partition name : DUMMY 
Identification ; REV B 
lask UIC : [500,12] 
Task attributes: -HO 
Total address windows: 1, 
Task Image size : 15680. 
Task address limits: 002000 
R-W disk blk limits; 000002 



words 

077177 

000077 



000076 00062 



** + 



Root segment: ZRCHB2 



R/w mem limits: 002000 077177 075200 31360. 
Disk blk limits: 000002 000077 000076 00062, 



Memory allocation synopsis 
Sect I on 



. BLK.iCRU.I.LCL.REL.CON) 
AA $C0D : ( RO , I , LCL , REL , CON ) 



ABSC0D:CR0.I.LCL,REL.C0N) 
AC *C0D : ( RO . I , LCL , REL , CON ) 
AD$C0D:(R0.I.LCL,REL,C0N) 

BL $ COD : ( RO , I . LCL , REL , CON ) 

SDMCODKRO.D.GBL.REL.CON) 
tCA 0BS:(R0,D.GBL.REL.C0N) 
SPi ITirCRO.D.GBL.REL.CON) 
$XYZ$ rCRO.I.LCL.REL.CON) 



Title \<hnt File 



002000 


000000 


00000. 














002000 


001434 


00796. 














002000 


000166 


00118. 


ZRCHB2 


REV 


B 


ZRCHB2 


OBJ j 


1 


002166 


001246 


00678. 


'RCH83 


REV 


B 


ZRCHB3 


OBJ j 


1 


0034 34 


002312 


01226. 














003434 


002312 


01226. 


CH84 


REV 


B 


ZRCHB4 


OBJ 


1 


005746 


007706 


04038. 














005746 


007706 


04038. 


Z< 7H85 


REV 


B 


ZRCHB5 


OBJ 


1 


015654 


000002 


00002. 














015654 


000002 


00002. 


ZRCHB6 


REV 


B 


ZRCHB6 


OBJ 


1 


015656 


000424 


00276. 














015656 


000316 


00206. 


B16MUL 


V3.0 


NEISLB 


OLB 


4 


016174 


000106 


00070. 


B165AV 


V3,0 


NEISLB 


OLD 


4 


016302 


043072 


17978. 














016302 


043072 


17978. 


ZRCH86 


RF.V 


B 


ZRCHB6 


OBJ 


1 


061374 


002554 


01388. 














061374 


002554 


01388. 


ZRCH82 


RtV 


B 


ZRCHB2 


OBJ 


1 


064150 


013016 


05646. 














064150 


013016 


05646. 


ZRCHB2 


REV 


B 


ZRCHB2 


OBJ 


1 


07 7166 


000010 


ooooe. 














077166 


000010 


00008 . 


ZRCHB7 


REV 


B 


ZRCHB7 


,OBJ 


ll 



Global symbols: 



ABORT 

ABO. MS 

ACTIVE 

AZf'MTR 

Bl.JOIV 

BL il AS 

BLiMOD 

BLIMUL 

BLJ'jHF 



010572-R 

075604 -R 
076240-R 
016302 -R 
016102-R 
077166 -R 
016114 *R 
015656 -R 
016126-R 



BOOT.r 

BOOT.R 

BR. LEV 

COM.AR 

CRLf" 

CTO.UA 

DATETX 

DATMSG 

DECODE 



076034-R 
015016-R 
064U2-R 
061374-R 
065016-R 
010362-R 
064046 -R 
0/5412 R 
006352-R 



DFPTCL 
DMSA 

DUMMY 

DUPI1. 
DIPCNT 

EMSG.S 
ERRBL.K 
ERRMSG 
ERRNBR 



002140-R 
016342 -R 
015654 -R 
007436 -R 
002122 R 
071030 R 
002134 R 
002132-R 
002130-R 



ERRTYP 

EX.LOC 

EX. SUP 

FCT.BU 

ECT.RF 

FLG.WR 

FMT1 

FMT2 

FMT3 



002 126 -R 
012004 R 
011366-R 
062332 R 
076416-R 
064062 R 
064150-R 
064156 R 
064246 -R 



FMT4 
FMT5 
F-MT6 

fmt/ 

GET. CM 

GET.DU 
GfcT.NR 
GFT.NS 

GOOD . N 



064354 -R 
064440 R 
064550 -R 
06464 6 -R 
006264 R 
0U07O-R 
006144 R 
006116 R 
0/5/42 -R 



GP$1 

GP*2 

GP$3 

GP*4 

GP$5 

HOSA 

HEAD 

HU.BR, 

HW.1P. 



A 



002252 -R 
002262 R 
0022/2 -R 
002304 R 
002322 R 
016302-R 
061444 R 
002144 R 
002140-R 



HW.Q1 
HW . Q2 



HW 
HW 
HW 
HW 



Q3. 
Q4. 
UNI 
VEC 



INACTI 
INIT.C 



764 76 
076534 
/tS .V 
7hb?0 
0021 4 *> 
002142 
0/6322 
OIW^ 

014540-R 



ZRCHB.tXE 
ZRCHB2 



Memory allocation mop TKB M40>02 
5-APR-64 13:53 



Page 2 



1-3 



SfeQ 0238 



ISD.ST 

IS, TIM 

LOAD.F 

LUAO.O 

LUN 

L$ACP 

LSAPT 

LiAU 

LJAUT 

LJAUTO 

LJCCP 

L«Ll.EA 

L$CO 

L$DEPO 

LSDESC 

l.JDESP 

L$DEVP 



064130-R 
014550-R 
005746 -R 
006172-R 
064074 -R 
002110-R 
002036 -R 
003424 -R 
002070-R 
003346 -R 
002106-R 
003400 -A 
002032 -R 
002011 R 
002166 -R 
0020 7b -R 
002060 -R 



L JO 1 ..; 

ljdip 

I ' 1 i P 

UiVJ 

i.SDUT 

LJDVTY 

ljef 

L5ENVI 
L'tRPT 
L$ETP 
LJEXP* 

LIEXP*. 

LiHARD 
LJHIME 
LJHPCP 



002124 -R 
002116-R 
002040 -R 
002034 -R 
003412-R 
002072 -R 
002214 -R 
002052 ~R 
002044 -R 
>02126-R 

jW)2 -R 
• •».• ,^-R 

0020*4 -R 
002066 -R 
002252-R 
002120-R 
002016-R 



LIHPTP 

LJHRDL 

LJHW 

L*HWLE 

LJICP 

L*IMIT 

LILAOP 

LJLAST 

LILQAD 

LILUN 

L*MREV 

LSNAME 

L$NDHR 

L$NOHW 

LJNDSF 

LiNOSW 

L$PRIO 



002022 -R 
002250-R 
002140-R 
002136-R 
002104 -R 
003334 -R 
002026 -R 
077172-R 
002 100 -R 
002074 -R 
002050-R 
002000 -R 
002316 R 
002 150 -R 
002330-R 
002156-R 
002042 -R 



UPROT 

L$PR7 

LiREPP 

L$REV 

LIRPT 

L*SFTL 

LISOFT 

L$SPC 

LISPCP 

LISPTP 

L.ISTA 

L1SW 

LJSWLE 

LITEST 

LSTIML 

LiUNIT 

MSGADR 



002160-R 
002112-R 
002062 -R 
002010-R 
002334 -R 
002320-R 
002322 -R 
002056 -R 
002020-R 
002024 -R 
002030-R 
002154-R 
002152-R 
002114-R 
002014 -R 
002012-R 
Q63334-R 



NEX.FL 

NO. ADO 

NRD.SL 

NSO . SL 

NXT.CR 

ON. LIN 

OUT 1ST 

OVSA 

PFE.ST 

PID.FM 

PID.SA 

PORT. I 

PROTO. 

PTBL.P 

PWR.hb 

RC.STR 

RC25.A 



064064 -R 
075444 -R 
064104 -R 
064 102 -R 
064070 ~R 
014162-R 
064024 -R 
064066 -R 
067030-R 
064714-R 
064076 -R 
076164-R 
076116-R 
064116-R 
075522-R 
074364 -R 
064106-R 



RECEIV 
REC.BU 
REC.DA 
REC.EN 
RET, EN 
RET. ST 
RINGBA 
RSVD.S 
SDUP.S 
SENO.D 
SENO.R 
SET.CN 
SFPTBL 
SMSCP. 
SNO . BU 
SND.EN 
SU.Ql. 



061446-R 
063332 -R 
013056-R 
061452-R 
064044 ~R 
064072 »R 
061404 -R 
064120 R 
074716-R 
012316-R 
061450-R 
013616-R 
002154-R 
075360-R 
063712-R 
062052 R 
076666-R 



SU.Q2, 

SW.Q3. 

SW.Q4. 

SW.UNA 

TO .MAN 

UFREE 

T$PTHV 

Tl 

UNIT.N 

VEC.AD 

XCRLF 

JENO.L 

JSAVE2 

JSAVE3 

SSAVE4 

JSAVE5 



076732-R 

077022-R 

077106-R 

002154-R 

075664 -R 

077172-R 

000000 

005732 -R 

064114-R 

064110-R 

065022 -R 

077174-R 

016174 R 

016210-R 

016226-R 

Q16346-R 



*** Task builder statistics? 

Total work file refer*), .,: 15303. 

Work file reads: 0. 

Work file writes: 0. 

Sire of core pool: 3216. word*; (12 

Sl^e of work file: \304, words (9* 



pages ) 
pages) 



Elapsed timejQ0:00j 6 



G3 



ZRCHB 



CREATED BY TK3 



ON 5-APR-64 AT 13:53 



Gl ORAl CROSS REFERENCE 



SYMBOL VALUE 



ABORT 

ABO, MS 

ACTIVE 

AZFMTR 

BLtDlV 

BL$LAS 

BL$MOD 

BLSMUL 

flLSSHF" 

BOOT.F 

BOOT.R 

BR LEV 

COM.AR 

CRLF 

CTO.WA 

DATETX 

DA1MSG 

DECODE 

DFPTBL 

DMSA 

DUMMY 

DUPII. 

DJPCNT 

EMSG.S 

ERRBLK 

ERRMSG 

ERRNBR 

ERRTYP 

EX.LOC 

EX.SlJP 

FCT.BU 

F'CT.RE 

FLG.WR 

FMT1 

FMT2 

FMT3 

FMT4 

FMT5 

FMT6 

FMT7 

GET. CM 

GE T . DU 

Gfc T . NW 

GFT.N5 

GOOD.N 

GP$1 

GP$2 

GPS 3 

GPJ4 

GP$S 

HOSA 

HEAD. A 



010572-R 

075604 -R 

076240-R 

016302-R 

016102-R 

077166-R 

016114-R 

015656 -R 

016126-R 

076034 R 

015016-R 

064112 R 

061374-R 

065016-R 

010362-R 

064046-R 

075412-R 

006352-R 

002140-R 

016342 R 

015654 -R 

007436 R 

002122-R 

071030-R 

002) 34 -R 

002132-R 

002130-R 

002126 R 

012004 -R 

011366-R 

062332 -R 

076416-R 

064062-R 

064150-R 

064 156 -R 

064^46-R 

064 354 -R 

064440-R 

064550 -R 

G64646-R 

006264 ~R 

011070-R 

006144-R 

0O6116-R 

75742 R 

002252 -R 

002262 R 

002272-R 

002304 -R 

002322 R 

016502-R 

061444 -R 



ZRCHB4 
ZRCHB2 
ZRCHB2 

ZRCH83 
B16MUL 
ZRCH67 
B16MUL 
B16MUL 
B16MUL 
ZRCHB2 

ZRCHB4 
ZRCH62 
Q ZRCH62 
ZRCHB2 

* ZRCHB5 
ZRCHB2 
ZRCH82 

ZRCH63 
ZRCH62 

ZRCH85 
ZRCHB6 

ZRCHB4 
O ZRCHB2 
ZRCH82 
ZRCHB2 
ZRO«2 
ZRQW2 
ZRCH62 

ZRCH04 

ZRCHB4 

* ZRCHB2 
ZRCHB2 
ZRCHB2 

* ZRCH62 
r ZRCH62 
ZRCHB2 

* ZRCHB2 
ZRCHB2 
ZRCH02 
ZRCH82 
ZRCHB5 

ZRCH64 

* ZRCHB5 
ZRCHB5 

* ZRCH62 
o ZRCH63 
7RCH63 
ZRCH63 
o ZRCHB3 
ZRCHtH 

ZRCHB5 
ZRCHB2 



PAGF 1 
CREF V02 



SEQ 0239 



REFERENCES. . . 



ZRCHB5 
ZRCHB3 
ZRCHB4 
ZRCHB5 
ZRCHB3 



ZRCHB5 

ZRCHB4 
ZRCHB5 
ZRCH63 
ZRCHB5 
ZRCH63 

ZRCHB3 
ZRCHB3 



ZRCH86 



ZRCH64 

ZRCHB4 
ZRCHB4 
ZRCHB4 ZRCHB5 

ZRCHB6 

ZRCHB5 

ZRCHB5 



ZRCH65 
ZRCH85 
ZRCH64 
ZRCH64 
ZRCH83 
ZRCHB4 
ZRCH63 
ZRCH63 
ZRr,H65 
1HCH64 
ZRCH64 
ZRCHB4 



ZRCMH5 



ZRCHB3 



ZRCHB4 



ZHCHB6 
/RCHB5 



-\5 



ZRCHU CREATED Bl TKB 
GLOBAL CROSS REFERENCE 



ON b- APR -84 AT I3jb3 



SYMBOL VALUf. 



REFERENCES.,, 



HU.RR. 


002144 -R 


ZRCHB2 




HW. IP. 


002140-R 


* ZRCH62 




HW.Q1. 


076476-R 


ZRCH62 


ZRCHB3 


HW . Q2 . 


076534-R 


$ ZRCHB2 


ZRCHB3 


HW.Q3. 


076572-R 


* /RCHB? 


ZRCHB3 


HU . Q4 . 


076630-R 


4 ZRCHB2 


ZRCHB3 


HW.DNI 


002146-R 


ZRCH62 




HW.VEC 


002142-R 


* ZRCHB2 




INACTI 


076322 -R 


* ZRCH82 


ZRCHB4 


INIT.C 


015256 R 


ZRCH64 


$ ZRCHB5 


INT$I, 


014540-R 


ZRCHB4 


ZRCHB5 


ISO. ST 


064130-R 


* ZRCH62 


ZRCHB3 


IS. TIM 


014550-R 


ZRCH65 




LOAD.F 


005746-R 


ZRCH63 


6 ZRCHB5 


LOAD.O 


0C6W2-R 


ZRCHBS 




l.UN 


0640 /4-R 


* ZRCH82 


ZRCHB3 


L *ACP 


002110-R 


* ZRCHB2 




I $APT 


002036 -R 


ZRCHB2 




LSAU 


003424 -R 


ZRCH82 


* ZRCHB3 


l.tAUT 


002070 -R 


ZRCH62 




L$AUTO 


003346-R 


ZRCHB2 


ZRCHB3 


LSCCP 


002106 -R 


ZRCH62 




LJCLEA 


003400-R 


ZRCHB2 


ZRCHB3 


L$CO 


002032 R 


* ZRCH62 




LtDEPO 


002011-R 


ZRCHB2 




I iOESC 


002166-R 


ZRCH82 


ZRCH03 


LtOtSP 


0020 76 -R 


ZRCHB2 




LJOEVP 


002060-R 


9 ZRCH62 




LJDISP 


002124-R 


« ZRCHB2 




I $OLY 


002116-R 


ZRCHB2 


ZRCH65 


I. *OTP 


002040 -R 


* ZPCHB2 




I *DTYP 


002034 -R 


Q ZRCHR2 




I $DU 


003412-R 


ZRCHB2 


* ZRCHB3 


LJDUT 


002072 -R 


ZRCHB2 




I 50VTY 


002214 R 


ZRCHB2 


* ZRCHB3 


L$EF 


002052 -R 


* ZRCHB2 




t.iENVl 


002044 -R 


9 ZRCHB2 




I SERRT 


002126-R 


* ZRCHB2 




LtETP 


002102-R 


* ZRCH82 




l.JEXPl 


002046 -R 


* ZRCHB2 




L$if.XP4 


002064 R 


ZRCH62 




in xps 


002066 -R 


ZRCHB2 




L*HARD 


002252 -R 


ZRCHH2 


ZRCHB3 


LIHIMF 


002120-R 


* ZMCMB2 




I JHPCP 


002016 -R 


ZRCH62 




I.IHPTP 


002022 R 


t> ZRCHG2 




I iHRDl 


002250 -R 


ZRCH63 




I SHU 


002140-R 


ZRCHB2 




I * HULL 


002136 R 


ZRCHB2 




I JICP 


002104 R 


4 ZRCH02 




I 5 INI T 


00 3 ', 34 R 


ZRCHH2 


o iHcms 


LiLAQP 


00202b -R 


ZRCHB2 





PAGE 2 
CREF V02 



SEQ 0240 



ZRCHB4 



ZRCHB4 



ZRCHB5 



ZRCHB 



CREATED B'r TKB 



1^ 



_> 



ON 5-APR-64 AT 13;53 



PAGE 3 



SEQ 024 X 



GL OOAl CROSS REFERENCE 



CREF 



V02 



SYMBOL VALUE 



REFERENCES. . . 



L$L.AS1 


07 71 72 -R 




ZRCHB2 


ZRCHB7 




LSI OAD 


C02100-R 





ZRCH62 






L5LUN 


002074 -R 





ZRCH62 






l.$MHtV 


002050 -R 


9 


ZRCHB2 






Li NAME 


002000 -R 





ZPCH62 






l.JNOHR 


002316-R 


9 


2RCH63 






LJNDHU 


002150 R 


c 


ZRCH02 






l.JNDSF 


002330-R 





ZRCHB3 






L*NDSW 


002156-R 





ZRCHB2 






LiPRIO 


002042 -R 





ZRCHB2 






L$PR0T 


002160-R 





ZRCHB2 






LJPRT 


002112 R 





ZRCHU2 






l.SRFPP 


002062 -R 





ZRCH62 






L$RLV 


002010-R 


9 


ZRCH62 






L *RPT 


002 "34 -P. 




ZRCH82 


9 ZRCHB3 




LSSFTL. 


002320 R 


9 


ZRCH63 






L$SOFT 


002322 -R 




ZRCHB2 


9 ZRCHB3 




L$SPC 


002056 -R 


9 


ZRCHB2 






L$SPCP 


002020 -R 





ZRCH62 






LJSPTP 


002024 -R 





ZRCH62 






L$STA 


002030 -R 





ZRCHB2 






L$5W 


002154 -R 


9 


ZRCHB2 






L$SWLE 


002152-R 


9 


ZRCHB2 






LSTEST 


002114-R 


9 


ZRCHB2 






LHIHL 


002014 -R 


9 


ZRCHB2 






LIUNIT 


002012-R 


9 


ZRCH62 


ZRCHB3 




MSGADR 


063334-R 


9 


ZRCHB2 


ZRCHB4 




NEX.FL 


064064 -R 


9 


ZRCHB2 


ZRCH64 


ZRCHB5 


NO. ADD 


0/5444-R 


9 


ZRDC2 


ZRCHB3 
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